[sdaurum]

Сообщение от v1s2222

Ну попробуй Try...Except:

Код:

for n:=0 to 100 do begin
TRY
idsmtp1.Host:='SMTP.xxx.ru';
idsmtp1.port:=25;
idsmtp1.Username:='xxx';
idsmtp1.password:='xxx';


idmessage1.body.Text:=memo2.text;
idmessage1.from.Text:=edit2.text;
idmessage1.recipients.EMailAddresses:=edit1.text;
idmessage1.subject:=edit3.text;

idmessage1.IsEncoded:=true;

attach:=TIdAttachment.Create(idmessage1.MessagePar ts, listbox2.Items[n]);

idsmtp1.connect();
if idsmtp1.connected=true then begin
idsmtp1.send(idmessage1);
IdMessage1.Clear;
idsmtp1.disconnect;
end;
Except
{вот здесь можешь вывести ошибку, если надо... или нечего не выводи}
end;

end;

Не помогло