Trigger Macro on Category Change/Add

[JumblyBug]

Hi all,

I'm pretty experienced writing macros using VBA for Excel, but I'm new to writing them for Outlook. I have a few categoried prepared that I use to organize my tasks/emails in Outlook. If I assign one of those categories to an email message, I want a macro to trigger that saves that file to a folder that I designate immediately (I don't want to have to run something periodically). Is this something that can be done?

Thanks in advance!

[westconn1]

you can do it in the itemsend event, but i do not know that there is any automation on selecting a category, unless the propertychange event of the mailitem is fired

[JumblyBug]

I was actually able to come up with something, it's not perfect though. The code works, but for some reason only once. It changes the category from "Add to Folder" to "Added to Folder", but I can't get it to save:

Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
    Dim Ns As Outlook.NameSpace
    
    Set Ns = Application.GetNamespace("MAPI")
    Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
    On Error Resume Next
    Dim email As Outlook.MailItem
    
    If TypeOf Item Is Outlook.MailItem And Item.Categories = "Add to Folder" Then
        Set email = Item
        email.Categories = ""
        email.Categories = "Added to Folder"
        email.SaveAs "C:\Users\thomas.oconnell\Desktop\Test\" & email.Subject, olMSG
    End If
    
End Sub

[westconn1]

, but I can't get it to save:

what happens? error? wrong result nothing?

probably you should save the email first
then in saveAs you should supply the correct file extension to match the specified file type, like

email.save
email.SaveAs "C:\Users\thomas.oconnell\Desktop\Test\" & email.Subject & ".msg", olMSG

[JumblyBug]

what happens? error? wrong result nothing?

probably you should save the email first
then in saveAs you should supply the correct file extension to match the specified file type, like

email.save
email.SaveAs "C:\Users\thomas.oconnell\Desktop\Test\" & email.Subject & ".msg", olMSG

This worked great, thanks for your help!