Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 или сокетов(короче оптимального варианта или если не трудно можно и оба) отправляется почта с вложенным файлом.

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



Страницы: 1 вся ветка

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

Наверх





Память: 0.55 MB
Время: 0.017 c
3-75495
Havez
2001-12-19 18:52
2002.01.24
Постоянно портится Autoincrement поле


3-75470
vano
2001-12-07 16:21
2002.01.24
try except


1-75548
Анатолий
2002-01-03 05:42
2002.01.24
Отчёт в Delphi


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


1-75563
Lakokr
2002-01-06 12:33
2002.01.24
как сделать ЕХЕ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский