Local oOutlook,oNameSpace,oNewFolder oOutlook=CREATEOBJECT('outlook.application') oNameSpace=oOutlook.GetNamespace('mapi') oNewFolder=oNameSpace.Folders(2).Folders.Add('myNewFolder') && This will create a folder in the Personal folders' directory of Outlook.http://www.tek-tips.com/faqs.cfm?fid=3894
>> >>=loMSG.Move(loNameSpace.Folders["Personal Folders"].Folders["InboxTemp"]) >>>
>Dim Inbox as Outlook.Mapifolder >Dim Subfolder as Outlook.Mapifolder > >Set Inbox=Applcation.Session.Getdefaultfolder(olFolderInbox) >Set Subfolder=Inbox.Folders.Add("my first new folder") >>