Assign Form Data To Specific Outlook Calendar, Office 2010
Apr 12 2017, 03:44 PM
Joined: 24-August 10
I have an appointment form in 2010 Access that sends information in the appointment fields to my 2010 Outlook calendar. The code is provided below. It works great, but I need the appointment to go to a different calendar instead of my default calendar. The right calendar is in a public folder on a server exchange. Here is my questions:
- how do I get the data in the form to go to a different folder in a public share folder?
Any advice or direction on this matter would be greatly appreciated! Thank you!! -Tommy
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
|Search Top Lo-Fi||27th April 2017 - 11:38 AM|