Access to Outlook: Send an appointment to a specific calendar
I found a very nice article about sending an appointment from Access to Outlook calendar. Here is the link: http://support.microsoft.com/kb/160502/en-us
This works very nicely but it sends the appointment to the default calendar. Is there a way to have the appointment go to a specific calendar. In my case the calendar is called "SP Events"
The code I used is:
Thanks in advance
Private Sub AddAppt_Click()
On Error GoTo AddAppt_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 already added to Microsoft Outlook"
' Add a new appointment.
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = _
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
MsgBox "Appointment Added!"
MsgBox "Error " & Err.Number & vbCrLf & Err.Description