filtering appointment attendees and resources??

  • Thread starter Thread starter callmedoug
  • Start date Start date
C

callmedoug

Hi,

here is the problem. I have a list of 40 or so meeting rooms, that I
want to be able to choose from when I set up a meeting in outlook.
These meeting rooms show up in the outlook address book, similar to
staff members, and are currently added as a "resources" from the
address book into the meeting.

Is there a way to provide a filtered list of those rooms based on the
time and date currently selected in the meeting schedul?.

I would think I could write a function that would take the time and
date, and scan the appropriate items in the address book (the rooms),
and provide a list of those that are currently available. and then
further add the room if I were to d-click on it from the list.

Can someone point me in the right direction to do something like this?
 
You can build such a list on a UserForm. Please see the Recipient.FreeBusy
function in the VBA help file.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Am 29 Nov 2006 10:43:28 -0800 schrieb callmedoug:
 
Hi Micheal,

So let me know if this would be the correct course of action.

1 Create a user button that would open a user form

2 have the form get the freebusy information for only those recipients
that the name begins with MTGRM

3 display a listbox of the recipients that are free

4 when d-click on one of the recipients in the listbox, add it as a
resource, and close the form.

if that is correct, would the following code work for filtering the
addressbook down to only meeting rooms?

'list entries in outlook addressbook that start with mtgrm
Dim myAddressList As AddressList
Dim AddressEntry As AddressEntry
Set myAddressList = Application.Session.AddressLists("Global Address
List")
For Each AddressEntry In myAddressList.AddressEntries
if left(AddressEntry.Name,5) = "MTGRM" then
MsgBox AddressEntry.Name
end if
' add code here to check for freebusy

' add code here is is free add to listbox

Next


Thanks
 
Hi Micheal,

So let me know if this would be the correct course of action.

1 Create a user button that would open a user form

2 have the form get the freebusy information for only those recipients
that the name begins with MTGRM

3 display a listbox of the recipients that are free

4 when d-click on one of the recipients in the listbox, add it as a
resource, and close the form.

if that is correct, would the following code work for filtering the
addressbook down to only meeting rooms?

'list entries in outlook addressbook that start with mtgrm
Dim myAddressList As AddressList
Dim AddressEntry As AddressEntry
Set myAddressList = Application.Session.AddressLists("Global Address
List")
For Each AddressEntry In myAddressList.AddressEntries
if left(AddressEntry.Name,5) = "MTGRM" then
MsgBox AddressEntry.Name
end if
' add code here to check for freebusy

' add code here is is free add to listbox

Next


Thanks
 
Hi Micheal,

So let me know if this would be the correct course of action.

1 Create a user button that would open a user form

2 have the form get the freebusy information for only those recipients
that the name begins with MTGRM

3 display a listbox of the recipients that are free

4 when d-click on one of the recipients in the listbox, add it as a
resource, and close the form.

if that is correct, would the following code work for filtering the
addressbook down to only meeting rooms?

'list entries in outlook addressbook that start with mtgrm
Dim myAddressList As AddressList
Dim AddressEntry As AddressEntry
Set myAddressList = Application.Session.AddressLists("Global Address
List")
For Each AddressEntry In myAddressList.AddressEntries
if left(AddressEntry.Name,5) = "MTGRM" then
MsgBox AddressEntry.Name
end if
' add code here to check for freebusy

' add code here is is free add to listbox

Next


Thanks
 
Back
Top