> >=loMSG.Move(loNameSpace.Folders["Personal Folders"].Folders["InboxTemp"]) >Translate VB code to VFP
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")found at http://www.eggheadcafe.com/software/aspnet/34232096/creating-mulitple-subfolders.aspx