|
Here is the code to add the folder in VBScript:
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("Scripts Received")
| 
