Tag allerseits,
wie kann ich
DP Funktion MapiSendMail aus einem Dienst heraus realisieren?
Ich benutze folgendes:
[delphi]
var lDesktop,lStationNew : cardinal;
//..
lStationNew:=OpenWindowStation('WinSta0',true,GENE RIC_ALL);
if (LStationNew<>0) then
begin
SetProcessWindowStation(LStationNew);
lDesktop:=OpenDesktop('Default',DF_ALLOWOTHERACCOU NTHOOK,true,GENERIC_ALL);
if (LDesktop<>0) then
begin
if SetThreadDesktop(lDesktop) then
begin
case MapiSendMail(MyService.ServiceThread.Handle,0,
mMessage, MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) of
//..
Probiert auch so: case MapiSendMail(lStationNew,lDesktop,
mMessage, MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) of
Funktion MapiSendMail liefert mir einen Leerwert zurück, trotzdem kommt an OutlookExpress nichts an.
Bitte um Hilfe.