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

Use Namespace.GetSharedDefaultFolder, then call MAPIFolder.Items.Add

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"etarc" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>