Thank You
-Leon
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"Leon" <leond...@hotmail.com> wrote in message
news:%2398e2Rp...@TK2MSFTNGP11.phx.gbl...
It works for me in Outlook XP.
WBR
Henry
"Leon" <leond...@hotmail.com> wrote in message
news:%2398e2Rp...@TK2MSFTNGP11.phx.gbl...
Thank You
"Dmitry Streblechenko (MVP)" <dmi...@dimastr.com> wrote in message
news:%23lVnpLq...@TK2MSFTNGP11.phx.gbl...
set sFolder = CreateObject("Redemption.MAPIFolder")
sFolder.Item = MAPIFolder
set Items = sFolder.HiddenItems
'search by subject
set HiddenMsg = Items.Item("My config message")
If (HiddenMsg is Nothing) Then
set HiddenMsg = Items.Add("IPM.Note.MyProduct.Config")
'set the subject so we can find this message next time
HiddenMsg.Subject = "My config message"
End If
'do something with the message, set properties, etc
...
HiddenMsg.Save
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"Leon Dragan" <leond...@hotmail.com> wrote in message
news:e7YD83je...@TK2MSFTNGP10.phx.gbl...
set RootFolder = CDOSession.GetFolder("")
set InvisibleFolder = RootFolder.Folders.Add("My invisible folder")
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"Leon Dragan" <leond...@hotmail.com> wrote in message
news:uOvjSKu...@TK2MSFTNGP11.phx.gbl...