add appointments to different users besides yourself



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


Set olAppt = Nothing
Set olApp = Nothing

Dmitry Streblechenko

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

Dmitry Streblechenko (MVP)
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

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