Saveas method

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.
 
D

Dmitry Streblechenko

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
-
 
A

ADuPlayee

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
 
D

Dmitry Streblechenko

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
-
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top