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")>Hi Karen,
>=loMSG.Move(loNameSpace.Folders("Mailbox - Principle").Folders("Processed")) >