>Does anyone have any idea why this does not work
>
>thanks
>k
>
>LOCAL loOutlook AS Outlook.Application
>LOCAL loNameSpace AS Outlook.NameSpace
>LOCAL loInBox AS Object
>LOCAL loMSG AS Outlook.MailItem
>LOCAL lnUnRead AS Integer
>
>#DEFINE olFolderInBox 6
>#DEFINE olFolderDone 3
>
>loOutlook = CREATEOBJECT('Outlook.Application')
>loNameSpace = loOutlook.GetNamespace("MAPI")
>loInBox = loNameSpace.GetDefaultFolder(olFolderInBox)
>lnUnRead = 0
>
>oloMSG = olNameSpace.GetDefaultFolder(olFolderInBox).Items
>FOR EACH loMSG IN loInBox.Items
>
>IF loMSG.UnRead
>wait window loMSG.Subject
>loMSG.Move(loNameSpace.Folders(6).Folders(3))
>Endif
>Next
>
It depends where it "does not work". ANy errors ? If yes, on what line?
Anyway, methods should be called like:
=loMSG.Move(loNameSpace.Folders(6).Folders(3))
Good Luck