Здравсвуйте,делал программу для расслки инфы своим клиентам. Суть такова, база мейлов берется из текстового файла.Но при отправке иногда появляются ошибки,то мейл неправильно написан то еще что-то,так вот вопрос как обойти эту ошибку,чтобы если наткнулись на ошибку то цикл продолжал идти дальше. (я думаю надо юзать try..finally,но потыкал везде так ничего и не добился)
Вот сам код
| Код |
assignfile(f, edit1.text+'.txt');
reset(f);
while not eof(f) do
begin
readln(f, tmp);
memo1.lines.add(tmp);
///тут идут данные о заполнении полей
idMessage1.From.Name:=edit6.text;
idMessage1.Subject:=edit5.text;
idMessage1.From.Address:=edit7.text;
idMessage1.Recipients.EMailAddresses:=tmp;
idMessage1.Body.Text:=Memo3.Text;
IdMessage1.ContentType:='text/plain; charset=windows-1251; charset="WINDOWS-1251"'; ///тут борюсь с кодировкой
idsmtp1.Send(idmessage1); ///вот тут при отправке иногда и выскакивает ошибка
end;
closefile(f);
|
Пожалуйста помогите расставить исключения 
|
