I am trying to add onto my current database a scheduling portion that will allow users to add appointments and then those appointments get pushed to the Outlook calendar. We have over 60 clients who we schedule appt's for but there are 3 people in the office who may need to schedule an appt or who may be asked about a resident's scheduling. We also use a cloud service here so that when the database is updated on the cloud we all get the updates. I would like the scheduling feature to not only allow all users to add appt's but for the appt's to be on everyone's Outlook calendar.
Also can the calendar have a link to each specific client?
After following the steps in this article <http://support.microsoft.com/kb/209963> I was able to create an appointment form, only instead of Msoutl9.olb I used the msoutl.olb 14. Everything looks fine but when I click on add to outlook I get an error message saying the appointment has already been added but when I check outlook the appt is not there. If this helps here is what I have listed:
Private Sub cmdAddAppt_Click()
On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedtoOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.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 = Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
Set objRecurPattern = .GetRecurrencePattern
With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1
'Once per week
.PatternStartDate = #7/9/2001#
'You could get these values
'from new text boxes on the form.
.PatternEndDate = #7/23/2500#
End With
.Save
.Close (olSave)
End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing
End If
'Release the Outlook object variable.
Set objOutlook = Nothing
'Set the AddedToOutlook flag, save the record, display a message.
Me!AddedtoOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub