MailItem in Outlook 2002 im RTF

[Stephan Kollecker]

Hallo! <BR><BR>

Hat es jemand schon mal geschafft, im Outlook 2002 ein MailItem im RTF-Format zu speichern?<BR>
Eigentlich sollte es so gehen: <BR><BR>

procedure TForm1.Button1Click(Sender: TObject);<BR>
var <BR>
OutlookApp : _Application; <BR>
OutlookMail : MailItem; <BR>
OutlookFolder : MapiFolder; <BR>
OutlookNameSpace : NameSpace; <BR>
begin <BR>
OutlookApp := CoOutlookApplication.Create; <BR>
OutlookNameSpace := OutlookApp.GetNameSpace('MAPI'); <BR>
OutlookNameSpace.Logon('', '', False, False); <BR>
OutlookFolder := OutlookNameSpace.GetDefaultFolder(olFolderOutbox); <BR>
<BR>
OutlookMail := OutlookApp.CreateItem(olMailItem) AS MailItem; <BR>
OutlookMail.BodyFormat := olFormatRichText; <BR>
OutlookMail.Recipients.Add(TargetAdress); <BR>
OutlookMail.Subject := 'Bezugsänderung'; <BR>
OutlookMail.Body := f_MailText; <BR>
OutlookMail.Save; <BR>
end; <BR><BR>

Die Formatierung wird nicht umgesetzt, es wird einfach Text gespeichert.<BR>
Im HTML-Format gibt es dieses Problem nicht, und im Outlook 2000 gab es sowieso kein Problem.