Mailitem nach senden abspeichern

[JannesDKS]

Moin sx2008,

hmm, das wär ja nicht die Anforderung, die Mail soll ja als msg in einer Ordnerstruktur abgelegt werden.

ich dacht grad, ich könnte das auch wie folgt machen, erscheint mir aber nich wirklich zuverlässig, dass ich die so immer erwische

Delphi-Quellcode:

 Mailitem.display(true);
 NmSpace := OutlookApplication.GetNamespace('MAPI');
  NmSpace.Logon(EmptyParam, EmptyParam, False, True);
  Folder := NmSpace.GetDefaultFolder(olFolderOutbox);
  //Folder.Display;
  MailItem := Folder.Items(1); // die mail ist jetzt im Postausgang
  if not DirectoryExists('C:mails\') then
    ForceDirectories('C:\mails\');
  MailItem.SaveAs('C:\mails\123.msg',olMSG);

:

das haben bestimmt schon viele besser als so gemacht