Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Как прикрепить файл к почте отсылаемой с помощью компоненты TNMSMTP 


Delphimun   (2002-01-06 16:35) [0]

Вот текст программы, которая отсылает почту с текстом Hello I!
Мне нужно прикрепить к этому письму файл скажем C:\Scandisk.log,
как изменить текст программы, чтобы можно было отослать данный файл?

Program pa;
Uses Psock,NMsmtp;
Var
Mysmtp : TNMsmtp;
Begin
Mysmtp := TNMsmtp.Create;
Mysmtp.PostMessage.FromAddress := "sender@mydomain.ru";
Mysmtp.PostMessage.ToAddress.Text := "user@pager.multi-
page.ru";
Mysmtp.PostMessage.Body.Text := "Hello!";
Mysmtp.Host := "mysmtpmail.mydomain.ru";
Mysmtp.Port := 25;
Mysmtp.Connect;
Mysmtp.SendMail;
Mysmtp.Disconnect;
Mysmtp.Destroy;
End.



Romul   (2002-01-06 17:07) [1]

Посмотри свойство у PostMessage.Attachment оно типа TStringList и там можешь файлы указать. А вообще советую IdSMTP использовать это из компонентов Indy в D6 или через сокеты делать, тогда еще лучше.



Delphimun   (2002-01-06 18:29) [2]

Romul >

Большое тебе спасибо за совет, всё работает!
Немог бы ты мне примерчик написать, где с помощью idsmtp или сокетов(короче оптимального варианта или если не трудно можно и оба) отправляется почта с вложенным файлом.

Заранее благодарен.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
7-75704           Lizard                2001-10-07 15:55  2002.01.24  
Как остановить отправку сообщения ?


3-75530           Аркадий               2001-12-21 17:42  2002.01.24  
Delphi - BDE - MS SQL login failed


4-75712           maxi                  2001-11-24 12:04  2002.01.24  
как узнать список дочерних окон процесса ?


4-75715           Delphi5.01            2001-11-15 17:36  2002.01.24  
Очистка папки.


3-75497           Roman_zdrj            2001-12-20 12:56  2002.01.24  
bde