Mail notifiction based on category

[kellyhell]

Good afternoon.

I have located a bit of code that produces a pop up message when an email is moved to a particular sub folder of a shared mailbox.

This message pops up everytime an email is moved, however, I would like it to only pop up if the email is in a certain category.

The code so far is (thanks to Steiner):

Option Explicit
 
Private Fold1 As Outlook.MAPIFolder
Private WithEvents colItems1 As Outlook.Items
 
Private Sub Application_Startup()
     'Insert the folder names here!
    Set Fold1 = Application.GetNamespace("MAPI").Folders("TECHNOLOGY ITD ITCS NEE Team").Folders("Inbox").Folders("Work In Progress")
    Set colItems1 = Fold1.Items
End Sub
 
Private Sub colItems1_ItemAdd(ByVal Item As Object)
    MsgBox "New mail from " & Item.SenderName & " in " & Fold1.Parent.Name
End Sub
 
Private Sub Application_Quit()
     'Clean Up
    Set Fold1 = Nothing
    Set colItems1 = Nothing
End Sub

[skatonni]

Try this:

Private Sub colItems1_ItemAdd(ByVal Item As Object)
    If Item.Categories = "test" Then
        MsgBox "New mail from " & Item.senderName & " in " & Fold1.Parent.name
    End If
End Sub

[kellyhell]

Try this:

Private Sub colItems1_ItemAdd(ByVal Item As Object)
    If Item.Categories = "test" Then
        MsgBox "New mail from " & Item.senderName & " in " & Fold1.Parent.name
    End If
End Sub

That works a treat - thank you

Could this also be changed to give a pop up when an email is categorised in the main Inbox?

[skatonni]

Could this also be changed to give a pop up when an email is categorised in the main Inbox?

Set Fold1 = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

If not what you wanted, ask a new question with details.