Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.013 c
1-75588           Tuk                   2002-01-03 19:42  2002.01.24  
Мастера, подскажите, отчет не помещается по ширине на лист с альбомной ориентацией как его можно разарезать?


14-75682          J_S                   2001-11-23 22:36  2002.01.24  
MОДЕРАТОРУ и ВСЕМ ОСТАЛЬНЫМ


14-75683          IvanIvanov            2001-11-27 22:44  2002.01.24  
Может здесь кто знает?????


3-75473           vinni2000             2001-12-17 13:08  2002.01.24  
Что делать?


1-75622           Дмитрий А.            2002-01-04 17:34  2002.01.24  
TShellListViev