I'm trying to create a macro that marks an email as a task due by 5:00 p.m. that day. The macro appears to work fine, with one exception: the subject line does not turn RED after the 5:00 p.m. due date (which is what normally happens if I set the reminder manually).

Here is my code:

Public Sub SetP1Flag()
Dim objMsg As Object
For Each objMsg In Application.ActiveExplorer.Selection
With objMsg
    .MarkAsTask MarkToday
    .TaskDueDate = Format(Now, "short date") & " " & "5:00:00 PM"
    .ReminderTime = Format(Now, "short date") & " " & "5:00:00 PM"
    .ReminderSet = True
End With

End Sub
Any help would be much appreciated!