I have a MS Access 2003 DB that can talk to a Outlook calendar, by using this code
Private Sub AddAppt_Click()
' 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.appl
Set outappt = outobj.CreateItem(olAppoin
.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
t = 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
Like my other post, I can get this code to add appointment in an Outlook Calendar, but, the calendar I need to get it to work on, is shared in Exchange as "User Calendar", for example, which I already have access to read and write to.
This code, only works on the default calendar in Outlook, which is not the one I need to make appointments in.
And, I cannot simply make it the default calendar, because the application will talk to more than one Calendar, using the same code