Ich weiss nicht ob es so richtiger Wär
oben im Code habe ich das geändert
Delphi-Quellcode:
Result := MAPI_E_LOGIN_FAILURE;
dwRet := MapiLogon(
Handle,PChar('
'),PChar('
'),MAPI_LOGON_UI
or MAPI_NEW_SESSION,
0, @MAPI_Session);
if (dwRet <> SUCCESS_SUCCESS)
then begin
MessageBox(
Handle,PChar('
Error while trying to send email'),PChar('
Error'),
MB_ICONERROR
or MB_OK);
end
else
und unten
Delphi-Quellcode:
if Assigned(MapiMessage.lpszSubject)
then try
StrDispose(MapiMessage.lpszSubject);
finally
if Assigned(MapiMessage.lpszNoteText)
then try
StrDispose(MapiMessage.lpszNoteText);
finally
if Assigned(Receip.lpszAddress)
then try
StrDispose(Receip.lpszAddress);
finally
if Assigned(Receip.lpszName)
then try
StrDispose(Receip.lpszName);
finally
MapiLogOff(MAPI_Session,
Handle, 0, 0);
end;
end;
end;
end;
end;
end;
so jetzt Hagelt es spottt
