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
"Dmitry Streblechenko" wrote:

What are the relevant snippets of your code?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"ADuPlayee" wrote in message
...
VBScript

"Dmitry Streblechenko" wrote:

What programming language are you using?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"ADuPlayee" wrote in message
...
Yes and everything works fine.

"Dmitry Streblechenko" wrote:

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
-
"ADuPlayee" wrote in message
...
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.