Отправка SMTP-сообщения

← →
Juice © (2005-05-31 18:20) [0]

Вот такой код использую для отправки сообщения (код один в один):
try Result:=false; with dm, Mail do begin if not Get_Mail_Params(Host, UserID, fromAdress, toAdress ) then fmMail.ShowModal; eMail.Host:=Host; eMail.UserID := UserID; eMail.Connect; eMail.PostMessage.FromAddress := fromAdress; eMail.PostMessage.ToAddress.Clear; s := toAdress; while Pos(",", s)<>0 do begin eMail.PostMessage.ToAddress.Add(Copy(s, 1, Pos(",", s)-1 )); Delete(s, 1, Pos(",", s) ); s:=Trim(s); end; eMail.PostMessage.ToAddress.Add(s); eMail.PostMessage.Subject := qCustomer.FieldByName("FName").AsString; eMail.PostMessage.Body.Text := "blabla"; eMail.PostMessage.Attachments.Clear; //eMail.PostMessage.Attachments.Add(Files.mFileName); //eMail.PostMessage.Attachments.Add(Files.oFileName); eMail.PostMessage.Attachments.Add(Files.ArchiveFileName); eMail.SendMail; eMail.Disconnect; Set_Mail_Params(Host, UserID, fromAdress, toAdress ); end; Result:=true; except dm.eMail.Disconnect; end;
Сообщение успешно отсылается, а потом при проверке обнаруживается что в аттач-файле посылается какая-то чепуха размерами около ста байт, когда оригинальный архивный файл весит отколо 4-х кило. Посылается именно тот файл который надо.

← →
Juice © (2005-05-31 19:11) [1]

Забыл сказать, написано в D5 так что кроме TNMSMTP использовать нечего. А вот кстати, был у меня тут раньше такой вопрос:

Используя компонент TNMPOP3 пытаюсь получить с сервера письмо с аттачментом (xls-файл). Так вот, на моей машине (Windows 2000 Server) все работает отлично - получаю вложение и открываю его. А при запуске программы на удаленном сервере (тоже Windows 2000 Server) файл-вложение сохраняется на диске, но он имеет немного другой размер и при попытке открытия Excel выдает ошибку что файл поврежден! Как бы все одинаково, системы одинаковые, офис одинаковый (2002)... Я даже ума не приложу что может повлиять на этот процесс получения письма ? Я даже не знаю как и где искать причину :)

То приложение я перевел на D7 и подключил к делу Indy - все заработало. И вот работало оно, работало (это типа сервиса по анализу приходящей почты), а теперь при получении письма выдает ошибку "coding table entry not found". Вот сейчас разберусь с горячим проектом по отправке и снова вернусь к старому сервису приема писем.
Мастера, подскажите что делать ? Если не использовать эти дерьмовые компоненты то что тогда ? MAPI ? Но это ведь малость через Ж, боюсь что будет еще больше глюков. Я уже в отчаянии, оно меня достало хуже некуда :( Тупая банальная процедура отправки/получения писем создает столько неприятностей и отбирает кучу времени. Что делать, что использовать, как делаете вы?

← →
Juice © (2005-05-31 21:20) [2]

Вот идея пришла такая: а может забить на все и сделать отправку через Outlook ? Если кто-то юзал может знаете, он в отправленных письма будет сохранять ? Если да то это даже хорошо.
А для получения попробую IMAP...

← →
Eraser © (2005-06-01 00:26) [3]

Juice ©

Компоненты из пакета в которы входит TNMSMTP глючные... притом почти все. Правильно что решил использовать Indy.

Приведи кодо для Indy... посмотрим, где ошибка.

← →
Fay © (2005-06-01 14:33) [4]

Юзай synapse

← →
Rater (2005-06-01 16:00) [5]

исходя из кода должно быть всё нормально (имхо).
Убедись в правильности подставляемых имён файлов
(с путями)

> Rater

100% увереность в правильной подстановке

Отправка SMTP-сообщения Найти похожие ветки