Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Defines an object used to manage a collection of CalendarPart objects.
None
The CalendarParts COM class cannot be created directly, but it can be returned by using the CalendarPart property on a CalendarMessage object.
The following code example checks the inbox of a user on the Exchange server in an exchange domain. When it finds a calendar message, it prints the subject line of the message and the method of each calendar part in the calendar parts collection.
Dim InboxURL As String Dim CalendarURL As String Dim ItemURL As String Dim Rs As New ADODB.Recordset Dim Rec As New ADODB.Record Dim iCalMsg As New CalendarMessage Dim iCalPart As ICalendarPart Dim iAppt As Appointment Dim Index As Integer Dim ContentClass As String Dim Config As New Configuration InboxURL = "file://./backofficestorage/exchange.microsoft.com/MBX/user12/inbox/" CalendarURL = "file://./backofficestorage/exchange.microsoft.com/MBX/user12/calendar/" 'Set the configuration fields for the appointment objects Config.Fields(cdoSendEmailAddress) = "user12@exchange.microsoft.com" Config.Fields("CalendarLocation") = CalendarURL Config.Fields.Update 'Open a recordset for the items in the inbox folder Rec.Open InboxURL Set Rs.ActiveConnection = Rec.ActiveConnection Rs.Source = "select ""DAV:href"",""DAV:contentclass"" from scope('shallow traversal of """ & InboxURL & """')" Rs.Open , , , adLockOptimistic 'Enumerate the recordset, checking each item's content class Rs.MoveFirst Do Until Rs.EOF 'Get the content class of each item ContentClass = Rs.Fields("DAV:contentclass").Value 'Test the content class for calendar message If ContentClass = "urn:content-classes:calendarmessage" Then 'Open the calendar message ItemURL = Rs.Fields(CdoDAV.cdoHref).Value iCalMsg.DataSource.Open ItemURL iCalMsg.Configuration = Config Debug.Print "Message subject: " & iCalMsg.Message.Subject 'Get each calendar part For Index = 1 To iCalMsg.CalendarParts.Count Set iCalPart = iCalMsg.CalendarParts(Index) Set iAppt = iCalPart.GetUpdatedItem Debug.Print "Part " & Index & " Method: " & iCalPart.CalendarMethod Next Index 'Delete the calendar message from the inbox Rs.Delete End If Rs.MoveNext Loop