>>Local loOutlook As Outlook.Application >>Local loNameSpace As Outlook.NameSpace >>Local loInBox As Object >>Local loMSG As Outlook.MailItem >>Local lnUnRead As Integer >>Local loAttach,llAttach >> >>#Define olFolderInBox 6 >> >>loOutlook = Createobject('Outlook.Application') && >>loNameSpace = loOutlook.GetNamespace("MAPI") >>loInBox = loNameSpace.GetDefaultFolder(olFolderInBox) >>lnUnRead = 0 >> >>Local loNewFolder >> >>loNewFolder=loNameSpace.Folders("Personal Folders").Folders.Add('TempBox') && This creates a folder. >> >>>