PRB: Problems Responding to Schedule+ 1.0 Meeting Requests

MORE INFORMATION

If you will be receiving Meeting Requests from both Schedule+ 1.0 and Outlook/Schedule+ 7.0, then you will want to implement logic to handle both types of requests.

Below is sample code for handling both cases:

   'This code assumes you already have the following variables:
   '    oMtg: MeetingItem with MeetingType = MeetingRequest
   '    Resp: Boolean indicating whether to accept the meeting.
   '    oMtgResp: Message Object that represents Meeting Response.

   If Resp Then  'Accept Meeting

     Set oMtgResp = oMtg.Respond(CdoResponseAccepted)

     ' Note: One customer reported that testing
     '     oMtg.Sender.DisplayType = "Remote(6)"
     ' was more accurate on his system.
     If oMtg.Sender.Type = "MS" Then  ' MSMail User
        ' Copy PR_OWNER_APPT_ID
        oMtgResp.Fields(&H00620003).Value = _
              oMtg.Fields(&H00620003).Value

        ' Copy PR_SENT_REPRESENTING_* properties to
        '   PR_RCVD_REPRESENTING_* properties
        oMtgResp.Fields.Add &H00430102, _
              oMtg.Fields(&H00410102).Value
        oMtgResp.Fields.Add &H0044001E, _
              oMtg.Fields(&H0042001E).Value
     End If

     oMtgResp.Text = "Meeting Accepted."

   Else

     Set oMtgResp = oMtg.Respond(CdoResponseDeclined)

     If oMtg.Sender.Type = "MS" Then

        ' Copy PR_OWNER_APPT_ID
        oMtgResp.Fields(&H00620003).Value = _
              oMtg.Fields(&H00620003).Value

        ' Copy PR_SENT_REPRESENTING_* properties to
        '   PR_RCVD_REPRESENTING_* properties.
        oMtgResp.Fields.Add &H00430102, _
              oMtg.Fields(&H00410102).Value
        oMtgResp.Fields.Add &H0044001E, _
              oMtg.Fields(&H0042001E).Value
     End If

     oMtgResp.Text = "Meeting Declined."

   End If

   oMtgResp.Send