I would like to have a rule run when a category on an existing in-box message is changed (e.g., category is changed to "done", automatically move it to the Done folder).



Thank you.

Anybody got any VBA or other ideas? I'm familiar with VBA in Excel, but not with Outlook terminology.

I've got this code, but it breaks on the line indicated. i don't know how to name the folders

Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myBox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myBox = myBox.Folders("!PS-In-Florida")
'was: myNameSpace.GetDefaultFolder (olFolderInbox)

Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("PS-Completed Items")
Set myItem = myItems.Find("[Category] Like '*Done*'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub