Люди умные помогите!
Дано:
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: Пользуемся тегами!