SMTP нужное кол-во раз

← →
KLAUS © (2005-09-15 09:05) [0]

Привет всем! НУжно отправить определённое кол-во сообщений за раз, но чёт не выходит, подскажите плиз где обишка??

var
i:integer;
begin

If NOT NMSMTP1.Connected Then Begin

NMSMTP1.Host:=Edit1.Text ;
NMSMTP1.PostMessage.FromAddress := Edit3.Text;
NMSMTP1.PostMessage.ToAddress.Text := Edit4.Text;
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.PostMessage.Subject := Edit5.Text;
NMSMTP1.Connect;

Try
For i:=0 to StrToInt(Edit2.Text) Do
NMSMTP1.SendMail;

Except

NMSMTP1.Disconnect;

end;
End

Else

ShowMessage("Not Connected");

end;

← →
Reindeer Moss Eater © (2005-09-15 09:14) [1]

> подскажите плиз где обишка??

Except
NMSMTP1.Disconnect;
end;

Ты же сам сделал все, что бы не узнать в чем причина ошибки, а теперь спрашиваешь здесь.

SMTP нужное кол-во раз Найти похожие ветки