Saveas method

  • Thread starter Thread starter ADuPlayee
  • Start date Start date
A

ADuPlayee

I am trying to save messages as html files. When using .SaveAs with the
olHTML as the save as type I get 'invalid procedure call or argument' but the
it works fine with other types.
 
Is that an RTF message? Can you save the same message through teh Outlook UI
(File | Save As)?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
 
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.Folders.Item("Mailbox")
Set objCheckFolder = objFolder.Folders.Item('Check")
Set objDOPFolder = objCheckFolder.Folders.Item("O")

Set Message = objDOPFolder.Items(1)

if Message.Subject = "TEST" then
if Message.UnRead then
strName = "C:\Desktop\EMAIL\" & Message.Subject & ".html"
Message.SaveAs strName , olMSGHTML
Message.UnRead = false

end if
end if
 
What is olMSGHTML?
You are accessing the very first item in the folder; keep in mind the very
first item in the MAPIFolder.Items collection will not necessarily be shown
first (or last) in the Outlook UI.
Look at the Subject property to make sure you are dealing with the expected
message. I bet you have an old RTF message that Outlook refuses to save in
the HTML format.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
 
Back
Top