Hi, everybody.

I'm in charge of scheduling an extensive number of meetings every month which means booking a lot of rooms. The current process is click on the calendar in Outlook associated with the room resource account and set up a meeting to reserve the space. This is time consuming, to say the least.

So, I started hunting around and tried to come up with a macro that would take my meeting data from Excel and load it into Outlook for me. This is what I've got at the moment:

Sub AddAppointments()
' Create the Outlook session
Set myOutlook = CreateObject("Outlook.Application")

' Start at row 2
r = 2

Do Until Trim(Cells(r, 1).Value) = ""
' Create the AppointmentItem
Set myApt = myOutlook.CreateItem(1)
' Set the appointment properties
myApt.MeetingStatus = olMeeting
myApt.Subject = Cells(r, 1).Value
myApt.Start = Cells(r, 2).Value
myApt.Duration = Cells(r, 3).Value
myApt.Recipients.Add (Cells(r, 4).Value)
myApt.Location = Cells(r, 5).Value
myApt.BusyStatus = 0
myApt.ReminderSet = False
myApt.Save
myApt.Send
r = r + 1
Loop
End Sub

It works - the appointments end up on my personal Outlook Calendar, but the problem is they're appointments. Not meetings. I can click on the appointment and go the extra step and "Invite Attendees" and hit send. That turns it into a meeting. But that doesn't work either because the Recipient is a resource account, not a regular email account, and I get an undeliverable message in response instead of a room reservation. What's really strange about that is if I delete the recipient entered by the macro and search for the exact same email address in the Global Address Book, then hit send, it'll work.

So, yeah. There are a couple of issues here. Any help you can provide would be greatly, greatly appreciated.

Thanks!