Вложить файл в почтовую программу, уст. по-умолчанию

← →
dataMaster © (2003-07-21 16:44) [0]

Всем привет! Как-то на форуме уже такой вопрос кто-то задавал, но вот ссылку не могу найти. Нужно из своей программы запускать почтовую программу, установленную в системе по-умолчанию и к тексту письма прикладывать файл. Код был взят из фака:

procedure SendMail; var Adress, Subject, TextMail, Mail : string; begin Adress:="adress@mail.ru"; Subject:="Тема"; TextMail:="Текст письма"; Mail:="mailto:" + Adress + "?subject=" + Subject + "&body="+ TextMail; ShellExecute(0,"open",PChar(Mail),"","",SW_SHOWNORMAL); end;

Поля адреса, темы и текста письма заполняются нормально. А как из этой процедуры прикрепить файл?

Спасибо.

← →
andrey_pst © (2003-07-21 17:35) [1]

протокол mailto не поддерживает вложения
пользуй Indy

Вложить файл в почтовую программу, уст. по-умолчанию Найти похожие ветки