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.