Hallo, folgendes Problem Ein agetn soll über die Dokumente einer Ansicht laufen und anhand eines Feldinhalts eine pdf-Datei aus einem Verzeichnis auf dem PC anhängen. Also in dem Feld steht ein Dateiname xyz.pdf der dem im Verzeichnis entspricht, dann soll angehängt werden. Das klappt prima solange für jedes Dokument ein pdf verfügbar ist. Aber wie fange ich ab, wenn es zu einem Dokument kein entsprechendes pdf vorhanden ist? Hier mein bisheriges Skript:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filename As Variant
Dim content As Variant
Dim file As String
Dim path As String
Set db = session.CurrentDatabase
Set view = db.Getview("newimport")
Set doc = view.GetFirstDocument()
path = "c:\\pdf\\"
While Not(doc Is Nothing)
content = doc.GetItemValue("NUMBER")
If content(0) = "" Then
Set doc = view.GetNextDocument(doc)
Else
filename =doc.GetItemValue("filename")
file = (path + filename (0))
Set rtitem = New NotesRichTextItem( doc, "pdf" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", file)
doc.pdf="Kein Volltextanhang vorhanden."
doc.Importstatus="alt"
Call doc.Save( True, True )
'Kill file
Set doc = view.GetNextDocument(doc)
End If
Wend
