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")