Link to home
Start Free TrialLog in
Avatar of Jan Sękara
Jan Sękara

asked on

Move read messages that came from specified user to a folder

I want to move messages that came from and have [XYZ] in the topic to a specified folder day after they were read.

I have a code that moves... i need conditions.
I'm a noob in outlook macros :/

Please advice.

On Error Resume Next

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolderSrc = objNamespace.GetDefaultFolder(olFolderInbox)
Set objFolderDst = objFolderSrc.Folders("@ToFile")

Set colItems = objFolderSrc.Items
Set colfiltereditems = colItems.Restrict("[UnRead] = False")

For intMessage = colfiltereditems.Count To 1 Step -1
    colfiltereditems(intMessage).Move objFolderDst
Avatar of Edwin Hoffer
Edwin Hoffer
Flag of United States of America image

Link to home
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Jan Sękara
Jan Sękara


This is impossible to do with outlook rules.
Ok, Let me research on it more then I will help you to get better solutions.....
This is the only answer by an expert