Frage/Problem mit EmbeddedObjects

    Hallo,


    habe eine Frage/Problem mit EmbeddedObjects. In einer Mail haben die Anhänge alle dieselben Namen, z.B. Ax.chm. In der Mailansicht wreden diese auch alle mit diesem Namen angezeigt.


    Die Anhänge zu ermitteln benutze ich diesen Code hier aus einem Agenten:


    Set oNotesUIWorkspace = New NotesUIWorkspace()
    Set oNotesUIView = oNotesUIWorkspace.CurrentView

    If Not oNotesUIView Is Nothing Then

    Set doc = db.GetDocumentByID(oNotesUIView.CaretNoteID)

    Set rtitem = doc.GetFirstItem("Body")
    If doc.HasEmbedded= True Then
    If Not rtitem Is Nothing Then
    Forall o In rtitem.EmbeddedObjects
    If (o.Type = 1454) Then
    sEmbeddedObjects = sEmbeddedObjects & o.Source & Chr(13) & o.Name & Chr(13)
    End If
    End Forall
    End If
    End If
    End If


    Das Ergebnis ist (für drei Anhänge):
    Ax.chm
    Ax.chm
    Ax.chm
    ATTF4NUA.chm
    Ax.chm
    ATTP339Y.chm


    Soweit ganz korrekt. Erst den Namen und dann den internen Namen von Lotus Notes.


    Wenn ich jedoch diesen Code auf derselben Mail ausführe bekomme ich:
    Ax.chm
    Ax.chm
    ATTF4NUA.chm
    ATTF4NUA.chm
    ATTP339Y.chm
    ATTP339Y.chm


    Für die letzten zwei Anhänge bekomme ich die Displaynamen nicht mehr, sondern nur die internen.


    Wenn ich jetzt eine andere Mail markieren und das Script ausführe, dann bekomme ich es korrekt.


    Hat jemand eine Idee?


    Danke


    Gruß
    AT

    nein, dass ist eine Test-Mail, die ich neu bekomme habe...


    wie beschrieben... sobal ich eine andere Mail markiere, das Script ausführe ist es korrekt... danach die ursprunliche Mali markieren eht auch noch....


    es geht nur nicht das Script, wenn ich es zweimal auf eine Mail ausführe...


    Mein Client ist 8.5 und er Server 6.5

    Dann solltest du ihn mal darauf hinweisen.
    Vor allem, daß es da eben zu komische Effekten kommen kann.


    Ich hoffe mal, daß zumindest die Mailfiles noch auf 6.5er Templates sind


    Denn nicht umsonst gibt es da entsprechende Vorgaben von der IBM