Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Отправка нескольких сообщений через NMSMTP   Найти похожие ветки 

 
luke ©   (2005-07-07 10:44) [0]

Вопрос может глупый но всеже.
Нужно отправить почту на 100 адресов, нужно ли для отправки каждого письма создавать соединение а потом его обрывать или можно один раз создать соединение отправить эти 100 писем а потом его закрыть.
Впорос на понимание, а не на предмет работает или нет, поскольку и тот и тот метод работает, правда в первом случае устал бороться с ошибкой 10057 Socket is not connected.
Если кто знает как ее правильно обработать прошу поделиться :)


 
Delphin ©   (2005-07-07 23:01) [1]

Если используешь 1 случай, то перед отправкой проверяй соединение:

If Not NMSMTP1.Connected Then Begin
NMSMTP1.UserId:=Edit1.Text;
NMSMTP1.Host:=Edit2.Text;
Try
NMSMTP.Connect;
Except
ShowMessage("Not Connected");
End;
End
Else
NMSMTP1.SendMail;

Используя второй случай и если стоит антивирусник (нортон например, у которого включена функция проверки исходящих писем), могут быть проблемы, тоесть письма будут отправляться при закрытии программы...


 
luke ©   (2005-07-08 07:52) [2]

Спасибо за ответ.
Суть я понял.
А как всеже быть с ошибкой 10057 Socket is not connected.
Дело в том что программа работает в автомате и на кнопочку ОК жать некому :) или обработчик Try...Except ее исключит.


 
Delphin ©   (2005-07-08 11:05) [3]

Ну как я понимаю код у тебя что-то вроде:
...
Var
I:Integer;
..........
For I:=0 to 100 Do
<тут процедура отправки письма>

Ты перед отправкой письма просто делай проверку соединения, я когда-то так выличился :)

Если без кнопочек, тогда можно и так:

If Not NMSMTP1.Connected Then Begin
NMSMTP1.UserId:=Edit1.Text;
NMSMTP1.Host:=Edit2.Text;
Try
NMSMTP.Connect;
Except
End;
End
Else
NMSMTP1.SendMail;

Try...Except ее исключит



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
4-1125069900
NikNet
2005-08-26 19:25
2005.10.30
Запустить EXE из ресурса не сохраняя на диск?


2-1128577481
Volfram
2005-10-06 09:44
2005.10.30
2 Вопроса


2-1128368845
Pasha L
2005-10-03 23:47
2005.10.30
Пробелы в ком строке


3-1126995942
quadronik
2005-09-18 02:25
2005.10.30
Delphi+Access--> Дельфи не видит новые поля базы


1-1128600470
Андрей Жук
2005-10-06 16:07
2005.10.30
RichEdit ver 4.1