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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.013 c