Форум: "WinAPI";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизEMail Найти похожие ветки
← →
Mover (2002-02-20 12:48) [3]Если почтовый клиент TheBat! то отправка аттача выглядит так:
// путь к The Bat из реестра
function GetPathTheBat: String;
const
TheBat="Software\RIT\The Bat!";
begin
Result:="";
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
OpenKey(TheBat, False);
Result:=ReadString("ProgramDir");
finally
Free;
end;
end;
(* Отправка: EMAIL, FName - строки с адресом и именем файла *)
// Найти программу The Bat!
Path := GetPathTheBat;
if (EMAIL<>"") and (Path<>"") and
(MessageDlg("В?дправити файл на e-mail: "+EMAIL+" ?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin
// здесь первый строковый параметр - адрес получателя,
// второй - тема, третий - отправляемый файл,
// queue - означает постановка в очередь ( папка OutBox ; можно поставить send - непосредственная отправка)
ShellExecute(Application.Handle,nil,PChar(Path+"thebat.exe"),PChar(Format("/NOLOGO /mail;to=%s;subject=%s;file="%s";queue",
[EMAIL,"registration",FName])),nil,SW_SHOWNORMAL);
end;
Если OutLook, то вроде бы так:
ShellExecute(Application.Handle,nil,PChar(Format("mailto:%s;subject=%s;%s", [EMAIL,"registration",FName])), nil, nil, SW_SHOWNORMAL);
Или file=%s; точно не пробовал!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c