Hallo zusammen,
Bitte Hilfe, ich komme mit meinem Agent nicht weiter, der die PDF-Dateien in die Datenbank importiert und aktualsieren soll. Der Importvorgang funktioniert soweit gut, allerdings können die Berechtingungen auf die Dokumente nicht gesetzt werden, da die Dokumente jedes Mal gelöscht werden.
Mein Problem: Wie kann ich meinen Agenten beibringen, dass er die Anhänge nur aktualisiert (ohne Dokumente zu löschen).
Kann mir da jemand helfen?
Wäre Super.
Grüße
Nyen
Hier ist mein Code:
Dim s As New NotesSession
Dim db As notesdatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Dim fileName As String
Dim rtitem As NotesRichTextItem
Dim collection As NotesDocumentCollection
Dim searchFormula As String
Set db=s.CurrentDataBase
Set view = db.GetView("Alle Dokumente")
Set vc = view.AllEntries
pathName$="D:\Test\"
If pathName$ = "" Then
Msgbox"Pfad oder Dateien nicht vorhanden"
End If
filename$ =Dir$(pathName$+"*.pdf",0)
Do While fileName$<>""
A = filename$ + "#" + typ$
searchFormula = |Dateiname = "| + A +|"|
Set collection = db.Search(searchFormula$, Nothing,0)
Call collection.RemoveAll(True)
' RemoveAttachments = True
fileName$=Dir$()
Loop 'Messagebox("ende erste Schleife")
filename$ =Dir$(pathName$+"*.pdf",0)
Do While fileName$<>""
Set doc =db.CreateDocument
Print fileName$
doc.Form="Main Topic"
Set rtitem =New NotesRichTextItem(doc, "Body")
Set notesembeddedobject = rtitem.EmbedObject(EMBED_ATTACHMENT,"",pathName$+fileName$)
Call doc.ComputeWithForm(False, False)
Call doc.Save(True, True)
fileName$=Dir$()
Loop
Call doc.ComputeWithForm(False, False)
Call doc.Save(True, True)
fileName$=Dir$()
