Forum: Netzwerke
Delphi
by Ralf Meyer,
24. Dez 2009
Hi,
hier mein Code zum versenden:
function SendFileMail(const FileName: TFileName; const Subject, BodyText, RecipAdress: String): String;
var
mMessage: TMapiMessage;
mlpFiles: TMapiFileDesc;
mRecips: TMapiRecipDesc;
begin
Forum: Netzwerke
Delphi
by Ralf Meyer,
19. Dez 2009
Hallo Opa,
Hast du mal versucht in der SendFileMail Methode den Aufruf der Funktion "Mapisendmail" um die Option MAPI_Dialog zu erweitern?
case MapiSendMail(0, 0, mMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) of
Gruß
Ralf