[sdaurum]

Люди умные помогите!

Дано:
100 почтовых адресов

Задача:
Отправить сообщения на все 100 адресов

Проблема:
Если один адрес окажется неверным или коряво написан, типа "ххх@yyy.ruru", то процесс прерывается с ошибкой, что адрес задан неверно.

Вопрос:
Как сделать так, чтобы при подобном случае процесс не прерывался???

Код программы

Код:

for n:=0 to 100 do begin

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.MessageParts, listbox2.Items[n]);

idsmtp1.connect();
if idsmtp1.connected=true then begin
idsmtp1.send(idmessage1);
IdMessage1.Clear;
idsmtp1.disconnect;
end;
end;

Admin: Пользуемся тегами!