Sub MarkMessage()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    With olMsg
        .Categories = "Orange Category"
        .UnRead = True
        .Save
    End With
lbl_Exit:
    Set olMsg = Nothing
    Exit Sub
End Sub