Текущий архив: 2003.08.07;
Скачать: CL | DM;
Вниз
Вложить файл в почтовую программу, уст. по-умолчанию Найти похожие ветки
← →
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
Страницы: 1 вся ветка
Текущий архив: 2003.08.07;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.007 c
