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