Return value of Function 'SendEmail' might be undefined

[Natcree]

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