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 = "MeetingRoom@mycompany.com"

safeAppt.Item = Appt
safeAppt.Send

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

Question: How can i get 'MeetingRoom@mycompany.com' 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

Archived from group: microsoft>public>office>developer>outlook>vba