Подскажите, а как добавить вложение к письму стандарного mail аге

← →
antoxa2005 (2008-06-14 05:02) [0]

Как запустить почтового агента, установленного по умолчанию, понятно
ShellExecute(0, nil,"mailto:delphi@mastak.com",nil,nil,1);

а как, при этом, добавить вложения???

Нигде не нашел... Помогите, если кто знает...

← →
alexm_hs_ (2008-06-14 12:38) [1]

Function SendMail(Address : PChar; Subj :PChar; Body : PChar; FileAttach : PChar; OpenDialog : boolean) : boolean; var MapiMess :TMapiMessage; MapiTo :TMapiRecipDesc; Attach :TMapiFileDesc; begin result := false; Attach.ulReserved := 0; Attach.flFlags := MAPI_OLE_STATIC; Attach.nPosition := 1; Attach.lpszPathName := FileAttach; Attach.lpszFileName := nil; Attach.lpFileType := nil; MapiTo.ulRecipClass := MAPI_TO; MapiTo.lpszName := Address; MapiTo.lpszAddress := nil; MapiTo.ulEIDSize := 0; MapiTo.lpEntryID := nil; MapiMess.ulReserved := 0; MapiMess.lpszSubject := Subj; MapiMess.lpszNoteText := body; MapiMess.lpszMessageType := nil; MapiMess.lpszDateReceived := nil; MapiMess.lpszDateReceived := nil; MapiMess.lpszConversationID := nil; MapiMess.flFlags := 0; MapiMess.lpOriginator := nil; MapiMess.nRecipCount := 1; MapiMess.lpRecips := @MapiTo; MapiMess.nFileCount := 1; MapiMess.lpFiles := @Attach; if OpenDialog then begin if MapiSendMail(0,0,MapiMess,MAPI_DIALOG,0) = 0 then result := true; end else if MapiSendMail(0,0,MapiMess,0,0) = 0 then result := true; end;

← →
Anatoly Podgoretsky © (2008-06-14 12:42) [2]

> antoxa2005 (14.06.2008 5:02:00) [0]

Протокол mailto: этого не поддерживает. Используй SimpleMapi

← →
имя (2008-06-24 02:33) [3]

Удалено модератором

Подскажите, а как добавить вложение к письму стандарного mail аге Найти похожие ветки