mit @Funktionen hast Du den Code schon.
mit Script geht es über
Code
dim ws as New NotesUIWorkSpace
dim uidoc as NotesUIDocument
dim session as New NotesSession
dim db as NotesDatabase
dim view as NotesView
set db = session.CurrentDatabase
set view = db.GetView("Name der Ansicht")
set doc = view.GetFirstDocument
Pfad = "C:\Bilder"
while Not doc is Nothing then
If Dir$(Pfad & "\" & doc.Name(0) ".jpg") <> "" Then
ws.EditDocument(true, doc)
Call uidoc.GotoField("Bild")
Call FileImport(Pfad & "\" & doc.Name(0) ".jpg")
Call uidoc.Save
Call uidoc.Close
End If
Set doc = view.GetNextDocument(doc)
wend
Code muss noch geteste und angepasst werden.
Der Agent muss auf einem Notes-Client laufen, da er die Dokumente im UI öffnen muss.
Gruß
Dirk
