M
miro
Hi!
This code mark unread the picked up folder messages. It works correctly.
But how can I mark unread always a specific folder (ex. "fax")?
Thanks in advance
M.
-----
Dim olApp As Outlook.Application
Dim olSession As Outlook.NameSpace
Dim olStartFolder As Outlook.MAPIFolder
Dim strPrompt As String
Set olApp = Application
Set olSession = olApp.GetNamespace("MAPI")
' **** HERE I WANT SELECT ALWAYS THE FOLDER NAMED "fax"
Set olStartFolder = olSession.PickFolder
For Each objItem In olStartFolder.Items
objItem.UnRead = False
objItem.Save
Next
------
This code mark unread the picked up folder messages. It works correctly.
But how can I mark unread always a specific folder (ex. "fax")?
Thanks in advance
M.
-----
Dim olApp As Outlook.Application
Dim olSession As Outlook.NameSpace
Dim olStartFolder As Outlook.MAPIFolder
Dim strPrompt As String
Set olApp = Application
Set olSession = olApp.GetNamespace("MAPI")
' **** HERE I WANT SELECT ALWAYS THE FOLDER NAMED "fax"
Set olStartFolder = olSession.PickFolder
For Each objItem In olStartFolder.Items
objItem.UnRead = False
objItem.Save
Next
------