Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: mgeidl am 30.07.12 - 09:36:30
-
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
-
Wenn keine Dateianhänge vorhanden sind, ist EmbeddedObjects kein Array
If Isarray (rtitem.EmbeddedObjects) ...
Hatten wir neulich hier im Forum schon einmal, dabei ist auch ein Beispielscript mit allen Eventualitäten herausgekommen (ist Item vorhanden, ist es ein Richtext, hat es Anhänge). Einfach mal suchen.