[sdaurum]

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

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

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

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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: Пользуемся тегами!