Hallo,
ich habe hier ein aktuelles Windows 10 bei dem das ohne weiteres funktioniert. Allerdings hatte ich Anfangs auch Probleme auf einigen Hosts und bekam den Fehler 'kein
Mapi-Client installiert'.
Nachdem ich die 'libeay32.dll' in meinem Programmverzeichnis aktualisiert hatte, war das Problem verschwunden.
Ich nutze die JCL Mail-Komponente.
Es geht nicht um irgendwie mails zu versenden, sondern über die
MAPI Schnittstelle...
Beispiel: $DELPHI\Source\
RTL\win\
winapi.Mapi.pas
Delphi-Quellcode:
function MapiLogOn(ulUIParam: Cardinal; lpszProfileName: LPSTR;
lpszPassword: LPSTR; flFlags: FLAGS; ulReserved: Cardinal;
lplhSession: PLHANDLE): Cardinal;
begin
InitMapi;
if @LogOn = nil then
@LogOn := GetProcAddress(MAPIModule, 'MAPILogon');
if @LogOn <> nil then
Result := LogOn(ulUIParam, lpszProfileName, lpszPassword, flFlags,
ulReserved, lplhSession)
else Result := 1;
end;