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