Adding a Task to Outlook Calendar in VBA

See more:

Outlook

VBA

I am using the following code to add a task to my Outlook calendar & it works just fine. However, the entry is not very noticeable, is there a way to amend the font, the colour, to make it bold ... any of that kind of thing ?!?

Sub AddToCalendar()

    Dim olApp As Outlook.Application
    Dim olTsk As TaskItem

    Set olApp = New Outlook.Application
    Set olTsk = olApp.CreateItem(olTaskItem)

    With olTsk
        .Subject = myEmailFolder & " Newsletter is Due"
        .Status = olTaskInProgress
        .Importance = olImportanceHigh
        .DueDate = Date + 3
        .Save
    End With

    Set olTsk = Nothing
    Set olApp = Nothing

End Sub