Submitted By: Ismael Serrano
Adds a folder named Inbox2 as a subfolder of the Microsoft Outlook Inbox.
'Option Explicit On Error Resume Next 'This script creates an Outlook folder called Inbox2 under the Inbox folder Set objOutlook = CreateObject("Outlook.Application") Set myNameSpace = objOutlook.GetNamespace("MAPI") Set myInboxFolder = myNameSpace.GetDefaultFolder(6) Set myNewFolder = myInboxFolder.Folders.Add("Inbox2")
'Option Explicit On Error Resume Next 'This script creates an Outlook folder called Inbox2 under the Inbox folder Set objOutlook = CreateObject("Outlook.Application") Set myNameSpace = objOutlook.GetNamespace("MAPI") Set myInboxFolder = myNameSpace.GetDefaultFolder(6) Set myNewFolder = myInboxFolder.Folders.Add("Inbox2")