>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. > >Sorry, try