Adding appointment to another user's Exchange calendar



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")

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
.Close (olSave)

End With

Set objAppt = Nothing

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

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



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