...
| Code Block |
|---|
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
strFolderName = objFolder.Parent
Set objMailbox = objNamespace.Folders(strFolderName)
Set objNewFolder = objMailbox.Folders.Add("Archive")
objNewFolder.WebViewURL = "httphttps://mailarchivaarchiva.company.com/outlook.do"
objNewFolder.WebViewOn = True |
...