#8 Improvement to deal with meeting requests & responses

[Andrew]

Excellent software! I have a small update that should deal with meeting requests and responses. The code is below and should be inserted before the "Case Else" in AnalysiereMails():

                    Case Is = olMeetingRequest, Is = olMeetingCancellation, Is = olMeetingForwardNotification, Is = olMeetingResponsePositive, Is = olMeetingResponseNegative, Is = olMeetingResponseTentative
                        Set myMeetingItem = myItem
                        .arrProperties(0) = myMeetingItem.Subject
                        .arrProperties(1) = myMeetingItem.ReceivedTime
                        sep = ""
                        .arrProperties(2) = ""
                        For Each myRecipient In myMeetingItem.Recipients
                            .arrProperties(2) = .arrProperties(2) & sep & myRecipient.Name
                            sep = "; "
                        Next
                        .arrProperties(3) = myMeetingItem.Body

                        Set myAppointmentItem = myMeetingItem.GetAssociatedAppointment(False)
                        If Not myAppointmentItem Is Nothing Then
                            .arrProperties(4) = myAppointmentItem.Subject & " + " & myAppointmentItem.Start & " + " & myAppointmentItem.End & " + " & myAppointmentItem.Location & " + " & myAppointmentItem.Body
                        End If
                        Set myAppointmentItem = Nothing

                        Set myMeetingItem = Nothing