| Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Forwarding a meeting request is similar to forwarding any message. If an attendee forwards a meeting request to someone else, and that person responds to the meeting request, the response is sent to the meeting organizer.
For information on how to invite new attendees to a meeting that is already saved to your calendar, see Inviting Attendees to a Meeting in the Calendar Folder.
The basic process for forwarding a meeting request is as follows:
The following code example gets calendar messages with the subject "Documentation Review Meeting" from the inbox of a specific user. If the calendar message is a meeting request, it forwards the meeting request to two other users.
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 iAppt As New Appointment
Dim iCalMsg As New CalendarMessage
Dim iCalPart As ICalendarPart
Dim iMsg As Message
Dim Config As New Configuration
Dim NewList As String
Dim Index As Integer
NewList = "someone@" & DomainName & "," & "another@" & DomainName
InboxURL = "file://./backofficestorage/" & DomainName & "/MBX/" & UserName & "/inbox/"
CalendarURL = "file://./backofficestorage/" & DomainName & "/MBX/" & UserName & "/calendar/"
'Set the configuration for the message
Config.Fields(cdoSendEmailAddress) = UserName & "@" & DomainName
Config.Fields.Update
'Open the record set for the calendar messages in the inbox folder
Rec.Open InboxURL
Set Rs.ActiveConnection = Rec.ActiveConnection
Rs.Source = "SELECT ""DAV:href"",""DAV:contentclass""," & _
" ""urn:schemas:httpmail:subject"" " & _
"FROM scope('shallow traversal of """ & InboxURL & """')" & _
"WHERE (""DAV:contentclass"" = 'urn:content-classes:calendarmessage')" & _
"AND (""urn:schemas:httpmail:subject"" = 'Documentation Review Meeting')"
Rs.Open
'Enumerate the record set and check for meeting requests
Rs.MoveFirst
Do Until Rs.EOF
'Open the calendar message
ItemURL = Rs.Fields(CdoDAV.cdoHref).Value
iCalMsg.DataSource.Open ItemURL
'Get each calendar part
For Index = 1 To iCalMsg.CalendarParts.Count
Set iCalPart = iCalMsg.CalendarParts(Index)
If iCalPart.CalendarMethod = "REQUEST" Then
Set iMsg = iCalMsg.Message.Forward
iMsg.Configuration = Config
iMsg.To = NewList
iMsg.TextBody = "Please attend this meeting for me." & iMsg.TextBody
iMsg.Send
Exit For 'No need to check other calendar parts
End If
Next Index
Rs.MoveNext
Loop