Hallo,
ich hab da ein kleines Problem: ich muss aus einer Notes-DB die Anhänge für unser neues Intranet exportieren. In dieser Maske gibt es 3 RichtText felder (Body, Bild, Anhang).
Nun ist es leider dazu gekommen, daß die Anwender die Anhänge mal in das, mal in ein anderes Feld reingestellt haben. Wenn ich jetzt mit folgendem Agenten die Anhänge exportieren will, bricht er ab, sobald in dem Feld "Anhang" nix drinnen ist.
Option Public
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument
Dim eo As NotesEmbeddedObject
Dim RTITEM As NotesRichTextItem
Set db=s.CurrentDatabase
Set coll=db.UnprocessedDocuments
For a=1 To coll.count
Set doc=coll.GetNthDocument(a)
Set rtitem = doc.GetFirstItem("Anhang")
ForAll o In rtitem.EmbeddedObjects
oname="c:\PI\" + o.name
Call o.ExtractFile( oname )
REM Messagebox o.name
End ForAll
Next
End Sub
Kann ich mit dem Agenten alle drei Felder abfragen? DANKE für eure Hilfe.
LG
Marietta
