Форум: "Основная";
Поиск по всему сайту: 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.018 c
3-75469           Buben                 2001-12-19 09:48  2002.01.24  
RDM + IBEvents


1-75599           Velocity              2002-01-07 07:28  2002.01.24  
IntToStr и конечно StrToInt


14-75668          Феликс                2001-11-29 23:43  2002.01.24  
Почем нынче курсовые и дипломные?


3-75523           cpu                   2001-12-18 23:25  2002.01.24  
Password for Oracle-7


6-75639           krimer                2001-11-02 16:35  2002.01.24  
console server