I have modified a contact form with a command button that runs the code
below.
I am trying to create a journal entry for a particular contact.

Unfortunately the code below does not work :(  Any suggestions would be
valued.

Thanks

Rudiger

Sub cmdJournalRec_Click
 Dim olJourn
' olTaskItem = 3
Set olJourn = Application.CreateItem(3)
olJourn.Subject = "Letter X sent"
olJourn.Type = "Letter"
olJourn.Duration = 5
olJourn.Save
End Sub