Здравствуйте, есть проблема с отправкой писем с прикрепленными файлами.
Вот фрагмент кода для отправки письма с файлами:
begin
smtpServer := TIdSMTP.Create(nil);
tcMessage := TIdMessage.Create(nil);
...
// Присоеденяем файл
for i := 0 to filenames.Count - 1 do
TIdAttachment.Create(tcMessage.MessageParts, FileNames[i]);
// Отправляем сообщение
smtpServer.Connect;
smtpServer.Send(tcMessage);
smtpServer.Disconnect;
tcMessage.Free;
smtpServer.Free;
end;
Прикрепляется 10 файлов.
Отсылается 2 одинаковых письма.
В первом 6 файлов, во втором продолжение - 4 файла.
При ручной отправке через The Bat тех же файлов все нормально.
Почему он его разбивает и как это предотвратить?