I'm using this code (below) to create an appointment in my outlook calendar.
It is working very well, but the appointment is created in the default user calendar.
What should I add to have this item created in other user calender?

Dim objOLApp As Outlook.Application
Dim vSubj, vBody As String
Dim NewApp As Outlook.AppointmentItem
Set objOLApp = New Outlook.Application
Set NewApp = objOLApp.CreateItem(olAppointmentItem)