Can't save Outlook email item as olRTF type

[chadau]

I am using the Microsoft Outlook 11.0 Object Library. When the code is executed the SaveAs method of the MailItem object returns an error stating "The parameter is incorrect." It will only save if the type parameter is olTXT. This code worked in the past using Outlook 2000.

Imports Microsoft.Office.Interop.Outlook

Private _objEmailItems As ItemsClass

private sub SaveEmail()
   Dim objMailItem As MailItem

   objMailItem = _objEmailItems.Item(0)
   objMailItem.SaveAs("\\cam1ntsrv\public\utility\email server\Examples\" & objProforma.ID & ".txt", OlSaveAsType.olRTF)
end sub

 

[PHV]

And this ?
objMailItem.SaveAs "\\cam1ntsrv\public\utility\email server\Examples\" & objProforma.ID & ".rtf", olRTF

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886