Change of colour of Email

[mravimtnl]

I wish to do with outlook the following

1. Read an uread mail
2. If action needs to be taken mark as unread


3. Change the colour to orange for such once read emails.

Is it possible?

[gmayor]

Easy enough with a macro

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

[mravimtnl]

Hi gmayor
Thanks for the code. But i want to change the font colour to orange instead of existing blue not the category of email.
Thanks in advance.