Hi,

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:

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
    .Save
End With
Next

End Sub
Any help would be much appreciated!