Outlook Recipients - mehr als es sein sollten

[nimora]

Hi,

ich zeihe mir die Termine aus Outlook und lege mir die Termin-Teilnehmer erst in ein Array und dann in einen einzigen String, der dann im Feld in der Tabelle abgelegt wird.

Zwei Probleme tauchen dabei auf.

1. Wenn ich mir das zur Kontrolle über debug.print ausgeben lassen, hat das Array des Termins mit einem Teilnehmer und mir als Veranstalter dennoch den Index 2 und wenn ich mir den Inhalt von Index 2 ausgeben lasse, ist dieses leer. Frage also, wo kommt das her? Das zerschießt mir nämlich die if-Abfrage, die den Trenner "/" am Ende des Strings weglassen soll.

2. Es tauchen Termine auf, die gar keine Teilnehmer (außer mich natürlich selbst) im Termin haben (also einfach Termine die man sich selbst einstellt, ohne weitere Personen einzuladen), dort im Array aber eine Vielzahl von Teilnehmern auftauschen, die  nichts damit zu tun haben und im Termin auch nicht gespeichert sind. Das finde ich noch am merkwürdigsten.

Ich wäre für Denkanstöße dankbar. Anbei der Code:

Code [Auswählen] Erweitern


                     If objAppointmentIntern.Recipients.Count > 0 Then
                        i = objAppointmentIntern.Recipients.Count
                        ReDim Preserve RecipientsZaehler(i) As String
                        For Each ObjRecipient In objAppointmentIntern.Recipients
                            i = i - 1
                            RecipientsZaehler(i) = ObjRecipient.Name
                        Next
                     End If
                     '################## Ausgabe des Arrays mit ausgelesenem Index ##################
                     For l = LBound(RecipientsZaehler) To UBound(RecipientsZaehler)
                        If l < UBound(RecipientsZaehler) Then
                            RecipientsInhalt = RecipientsInhalt & RecipientsZaehler(l) & "/ "
                            Debug.Print "If-Part 1 und l ist gleich: "; l & " und " & RecipientsZaehler(l)
                        Else
                            RecipientsInhalt = RecipientsInhalt & RecipientsZaehler(l)
                            Debug.Print "Else-Part 1 und l ist gleich: "; l & " und " & RecipientsZaehler(l)
                        End If
                     Next
                     
                     '#####################################################################################
                     rst!Teilnehmer = RecipientsInhalt
                     RecipientsInhalt = ""
                     rst!BeginntAm = .Start
                     rst!EndetAm = .End
                     rst!GeaendertAm = .LastModificationTime
                     Set objUserProperty = .UserProperties.Add("TerminID", olText)
                     objUserProperty.Value = rst!TerminID
                     .Save
                     rst.Update