Create a New Journal Entry VBA Function

This function will create a new journal entry in Outlook of type Task, the current time as start date and start the timer right away.

Sub A1_Create_Journal_Entry()
    Set objFolder = Session.GetDefaultFolder(olFolderJournal)
    Set objItem = objFolder.Items.Add("IPM.Activity")
    objItem.Start = DateTime.Now
    objItem.Type = "Task"
    objItem.Display
    objItem.StartTimer
End Sub