Outlook Appointments & Meetings

[Craig Ferrier]

I have code to create a meeting which seems to work. As part of the meeting
i want to use a Resource - a calendar for a meeting room. How can I get the
resource (meeting room) to accept and display the meeting in its shared
Outlook calendar.

Here is the code:

Public Function CreateAppointment(SubjectStr As String, BodyStr As String,
LocationStr As String, AttendeesStr As String, Duration As Integer,
StartDate As Date, StartTime As Date, AllDay As Boolean, Optional strStatus
As OlItemType)

Dim OlApp As New Outlook.Application, Appt As Object, safeAppt As Object

Set OlApp = CreateObject("Outlook.Application")
Set Appt = OlApp.Session.GetDefaultFolder(olFolderCalendar).Items
Set safeAppt = CreateObject("Redemption.SafeAppointmentItem")
Set Appt = OlApp.CreateItem(olAppointmentItem)

Appt.Subject = SubjectStr
Appt.Start = Format(StartDate, "mm/dd/yyyy") & " " & StartTime
Appt.Duration = Duration
Appt.ReminderSet = True
Appt.AllDayEvent = AllDay
Appt.OptionalAttendees = AttendeesStr
Appt.Body = BodyStr
Appt.Location = LocationStr
Appt.Save
Appt.MeetingStatus = strStatus
Appt.Resources = "(e-mail address removed)"

safeAppt.Item = Appt
safeAppt.Send

Set Appt = Nothing
Set safeAppt = Nothing
Set OlApp = Nothing
End Function

Question: How can i get '(e-mail address removed)' to accept the meeting
and display the meeting in its shared calendar.

Note: Once the meeting is created, if i edit the meeting in my Outlook
Calendars, it will then show up in the resource calendar and i get a
confirmation message "the resources for this meeting have been successfully
booked".

Any help would be greatly appreciated.

Thanks
Craig

PS: we are using exchange

 

[Ken Slovak - [MVP - Outlook]]

For that you need an autoaccept script or agent running in Exchange on that
resource mailbox. You should post this question to an Exchange group,
perhaps microsoft.public.exchange.applications. Specify your Exchange
version and setup when you post there.