I have been using an automation script to enter appointments into outlook. It works well in adding the appointments to the standard calendar in outlook.
I am trying to use exchange server with several calendars. Is there a way that I can direct the output(the scheduled appointment) to an exchange calendar or a custom outlook calendar.
I've been using the following snippet of the code;
Private Sub cmdAddAppt_Click()
'On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
'Add a new appointment.
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!First & " " & Me.Lastname
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation & " ID# " & Me.PatientID & " " & Me.Weight & " Notes:" & Me.ApptNotes
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
Is there a way?