add appointments to different users besides yourself

[Guest]

How do you add appointments to different users besides yourself. I can do it
manually for multiple people. I can do it programatically my own logon. But
i want one person to have control over multiple calenders programatically. I
have all the permissions set correctly. I just need a way to select the
calender that i want to make an appointmnet to. Thanks!

The following is what i have to control my own calendar:

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

olAppt.Start = Now() + (2# / 24# / 60#)

With olAppt
.Duration = 60
.Subject = ActiveCell.Value
.Body = ""
.Location = ""
.ReminderMinutesBeforeStart = 15
.ReminderSet = True
End With

olAppt.Save

Set olAppt = Nothing
Set olApp = Nothing

 

[Dmitry Streblechenko]

Retrieve other user's Calendar folder using
Namespace.GetSharedDefaultFolder, then create a new appointment using
MAPIFolder.Items.Add

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