| Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Defines an object used to manage a collection of Attendee objects.
None
The following example opens the first appointment in a user's calendar. It then uses an Attendees object to list each attendee for the appointment.
Dim IAtnds As IAttendees
Dim IAtnd As Attendee
Dim IAppt As New Appointment
Dim Rs As New ADODB.Recordset
Dim Rec As New ADODB.Record
Dim CalendarURL As String
Dim ItemURL As String
Dim Index As Integer
CalendarURL = "file://./backofficestorage/exchange.microsoft.com/MBX/user12/calendar"
'Open the calendar and get the first appointment
Rec.Open CalendarURL
Set Rs.ActiveConnection = Rec.ActiveConnection
Rs.Source = "SELECT * from SCOPE('shallow traversal of """ & CalendarURL & """')"
Rs.Open
Rs.MoveFirst
ItemURL = Rs.Fields(CdoDAV.cdoHref)
IAppt.DataSource.Open ItemURL
'Use the Attendees object to get all attendees
Set IAtnds = IAppt.Attendees
For Index = 1 To IAtnds.Count
Set IAtnd = IAtnds.Item(Index)
Debug.Print IAtnd.Address
Next Index