Игронирование ошибок, с дальнейшим продолжением.

[stalker1995s]

Здравствуйте, столкнулся с проблемой, есть программа которая отправляет письма на список емайло, если один емайл из списка, оказался битым (Не существует) программа выдает ошибку, и цыкл останавливается. Внимание вопрос: Как сделать так, чтоб если попался битый емайл, он просто игнорировал его, и цикл выполнялся дальше. Думаю вопрос понятен. Выкладываю код:

procedure TForm1.N1Click(Sender: TObject);
var n1,i,n2,index,name: integer;
SName: integer;
begin
for index:= 0 to 1500 do
begin
idSMTP1.Username:=Edit1.Text; // Логин
idSMTP1.Password:=Edit2.Text; // Пороль
idSMTP1.Host:=ComboBox2.Text;
idSMTP1.Port:=25;
idSMTP1.AuthenticationType:=atLogin ;
name:=name+1;
For n2:=1 to 5 do
begin
SName:=500+Random(1000000000000000) ; // Не оброщайте внимания.
end;

IdMessage1.Body.Text:=Memo1.Text;
idMessage1.From.Text:=Edit1.Text;
idMessage1.Recipients.EMailAddresse s:=ComboBox1.Items[name];
idMessage1.Subject:=Edit3.Text;
Label5.Caption:=intToStr(name);

idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
end;
end;

[bakanaev]

try 
idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
except end;

[xoodoo]

Спамер-недоучка ?

[bakanaev]

сорри.....

[stalker1995s]

Увы не помогло, нет это не спам. Цель программы охват обширной аудитории подписавшихся. Выдает все туже ошибку, когда находит битый. Есть еще варианты ?

[bakanaev]

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

Увы не помогло, нет это не спам. Цель программы охват обширной аудитории подписавшихся. Выдает все туже ошибку, когда находит битый. Есть еще варианты ?

Странно...

try 
idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
except 
on Exception do
end;

И текст ошибки озвучьте

[Аватар]

Небось выдает при запуске из под дельфи. А если просто exe запустить?

[stalker1995s]

Даже с кодом:

try
idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
except
on Exception do
end;

Вылезает все таже ошибка, все на том же емайл адресе.
Вот и она:

[stalker1995s]

Сообщение от Аватар

Небось выдает при запуске из под дельфи. А если просто exe запустить?

Верно, из под дельфи, но даже если так, это выглядит не корректно. В любом случае выдаст ошибку, а это уже не ахти)

[Пепел Феникса]

теперь переведите текст то.(посл строчка)

делфи по умолчанию(может не все версии) показывает даже обработанные ошибки.
запустите вне делфи. там должно не выдавать больше.