Форум: "Основная";
Поиск по всему сайту: 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
1-75615           swr                   2002-01-08 10:26  2002.01.24  
меню Project/Resourses в Delphi IDE


1-75552           Satrap                2001-12-28 13:19  2002.01.24  
Описание классов


1-75562           vsu                   2002-01-05 15:00  2002.01.24  
Прокрутка в RichEdit


1-75581           Alex007               2002-01-06 22:11  2002.01.24  
Кнопки


3-75512           Igo                   2001-12-20 17:27  2002.01.24  
сумма в подчин. ..Grid