Submitted By: Ismael Serrano

Adds a folder named Inbox2 as a subfolder of the Microsoft Outlook Inbox.

Visual Basic
Edit|Remove
'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")