Adding appointment to another user's Exchange calendar


E

etarc

Hi all!

I have scoured far and near looking for an answer.

My goal is to have user A schedule appointments from an Access 03
database for about eight other users.

I have gotten as far as having the appointment show up in my calendar,
but have not been able to:

1. Put it into another users calendar (in this case Joe Smith).
2. Eventually have it not show up in my (or the "scheduler's")
calendar.

Here is what I've got so far:

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)

With objAppt
.Recipients.Add "Joe Smith"
.Start = Me.DOS & " " & Me.txtApptTime
.Duration = 30
.Subject = "Patient " & Me.txtPatientName
.Location = Me.txtPhysician
.Body = Me.memComments1
.Display
.Save
.Close (olSave)

End With

Set objAppt = Nothing

How do I handle the Exchange situation with getting into Joe Smith's
calendar?

I would be very grateful for anyone who can point me in the right
direction!

JC
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top