[lkz_07]

Всем добрый день.
Есть проблема:
нужно отправлять письма с вложениями: приказы, документы - каждому сотруднику индивидуальное задание (типа, что он должен сделать сегодня).
Всего сотрудников ~200. Находил пример в интернете с IdSMTP - но отправка после 20 письма - возникают ошибки (сервер заблокировал работу)...

бьюсь уже неделю - ничего не получается - прошу помощи (можно в личку)

P.S. Это не СПАМ рассылка!

[poli-smen]

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

нужно отправлять письма с вложениями: приказы, документы - каждому сотруднику индивидуальное задание (типа, что он должен сделать сегодня).
Всего сотрудников ~200. Находил пример в интернете с IdSMTP - но отправка после 20 письма - возникают ошибки (сервер заблокировал работу)...

Ну так наверное действительно сервер заблокировал работу. Свяжись с администратором сервера - пусть отключит блокировку.

[lkz_07]

Сообщение от poli-smen

Ну так наверное действительно сервер заблокировал работу. Свяжись с администратором сервера - пусть отключит блокировку.

Писали-тишина...
Может что то нужно подправить в исходнике?

[lkz_07]

Сам исходный код

Код:

IdSMTP1.Port:=25;
IdSMTP1.Host := ′smtp.mail.ru′;


IdSMTP1.Connect(5000);
IdSMTP1.AuthenticationType:=atLogin; 
IdSMTP1.Username:=′delphi′; 
IdSMTP1.Password:=Password;


Msg.Subject:=′тема сообщения′; //текст темы сообщения 
Msg.From.Adress:=′delphi@mail.ru′; //указываем автора письма 


for i:=0 to StringList.Count-1 do begin

Msg.Recipients.EMailAddresses := StringList.Strings[i] ; 
//указываем адрес получателя 

Msg.Body.Text:=′текст сообщения′; //размещаем текст сообщения


if Connected=True then IdSMTP1.Send(Msg);

end;



IdSMTP1.Disconnect;

[poli-smen]

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

Сам исходный код

Код:

IdSMTP1.Port:=25;
IdSMTP1.Host := ′smtp.mail.ru′;
.....

Попробуй через другой сервер.

[lkz_07]

Сообщение от poli-smen

Попробуй через другой сервер.

Пробовал, специально создал почту на Yandexе - тоже самое...
Если делать Sleep(1000) - после отправки каждого письма, то программа висит - оотменитиь даже нельзя...