Outlook Quick Steps with Categorize function - Exchange server public folders

Question

Is it possible to categorize an e-mail with a Quick Step with the right step order?
I mean If want to do the following:
copy to a public folder
make it read
mark it complete
categorize it
It will categorize the e-mail first (like it has a higher priority) and both the actual e-mail and the copied one will be 'flagged' with the category.
Is it possible to modify the quick step that way to do the categorize function after the copy function, so the copied one will not be categorized, only the original one.
All the e-mails are in public folders, so I copy the e-mail from a public folder to another one. All the public folders are on Exchange servers.
Please advise.
Thank you!

Answer 1

Ah, no, you can't change that - the problem is that once it's move, the QS won't know which item is it, it adds the category first.
you can use something like this -
Sub MoveCopyMessage()
    Dim objNS As Outlook.NameSpace
    Dim objSourceFolder As Outlook.MAPIFolder
    Dim objDestFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
    Dim objCopy As Outlook.MailItem
    Set objNS = Application.GetNamespace("MAPI")
    Set objSourceFolder = objNS.Folders("Public Folders -
[email protected]").Folders("All Public Folders").Folders("New")
    Set objDestFolder = objNS.Folders("Public Folders -
[email protected]").Folders("All Public Folders").Folders("Old")
    Set objItem = Application.ActiveExplorer.Selection.Item(1)
 ' copy and move first
     Set objCopy = objItem.Copy
      objCopy.Move objDestFolder
' then do whatever to original 
        With objItem
            .UnRead = False
            .MarkAsTask olMarkComplete
            .Categories = "This Category"
            .Save
        End With
    Set objSourceFolder = Nothing
    Set objDestFolder = Nothing
    Set objNS = Nothing
End Sub
Diane Poremsky [MVP - Outlook]
Outlook & Exchange Solutions Center
Outlook Tips
Subscribe to Exchange Messaging Outlook weekly newsletter