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
