Doppeleintrags-ID in LS

    Hallo Leute,
    ich arbeite gerade fieberhaft an meinem ersten LS. Es soll mir die Variablen eines Mail-Dokuments anzeigen. Es klappt soweit ganz gut, leider ist die Variable Received mehrfach belegt. Ich hab nun zwei Probleme: wie oft ist die Variable belegt und wie kann ich sie mir anzeigen ??? :cry:


    :
    :
    Dim doc As notesdocument


    If Not (doc Is Nothing) Then
    Msgbox "PostedDate :" & doc.PostedDate(0) & Chr(13) & _
    "DeliveredDate:" & doc.DeliveredDate(0) & Chr(13) & _
    "Received:" & doc.Received(0) & Chr(13)
    End If


    Ich hätte gedacht, dass ein Zugriff auf doc.Received(1) klappen müsste. Tut es aber nicht.


    Wer weiss die Code-Zeile die mir fehlt ????

    In der Notes-Hilfe steht:
    Two items can have the same name. To access other than the first item, use the Items property of NotesDocument.


    Und das sieht dann z.B. so aus:
    Dim doc As notesdocument
    Dim Werte() As string
    Dim counter As Integer
    Dim it As Notesitem
    counter=0
    ReDim Werte(0)
    ForAll it in doc.items
    If it.name="Received" Then
    Empfaenger=it.Values
    For i=0 To UBound(Empfaenger)
    If Empfaenger(i)<>="" Then
    If counter>0 Then ReDim Preserve Werte(counter)
    Werte(counter)=Empfaenger(i)
    counter=counter+1
    End If
    End If
    Next
    End If
    End ForAll


    Immer wenn ein item auf den Namen RECEIVED hört, übergibst du die item-Werte an das Array EMPFAENGER. Im Array WERTE werden alle Werte aller RECEIVED-Item-Einträge gesammelt.

    Danke für den Tipp,
    ist doch nicht ganz so einfach, wie ich dachte, aber im Prinzip habe ich es kapiert. Leider gibt mir der Code schon beim abspeichern eine Fehlermeldung. Ich probier noch ein wenig rum, dann wird's schon klappen. :)