Hallo Ihr Scripter.
Ich habe hier ein Script, das in einer Ansicht von einer Aktion aufgerufen wird.
Das Script soll aus einer Filelist beliebig viele PDF-Dateien einlesen und jede PDF-Datei an ein neues Dokument anhängen.
Wenn ich mehr als 6 Dokumente auswähle läuft das Ganze nicht. Warum nur?
Hier ist das Script:
-------------------
Dim session As New NotesSession
Dim eval As Variant
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filename As String
' Open a dialogbox and allow users to select from a list of files
files = workspace.OpenFileDialog(True, "Dateiliste", "Wählbare Dateien|*.pdf", "F:\")
If Isempty(files) Then Exit Sub ' Exit if the user selects the Cancel button
Forall FileList In files ' Loop through the list of files selected
Filename = Filelist ' Get the current filename
' Now, we will create a new document and attach the selected file to it.
Set db = session.CurrentDatabase ' Get the current database
Set doc = New NotesDocument( db ) ' Create a new Notes Doc
Set rtitem = New NotesRichTextItem( doc, "PDF" ) ' Create a new richtext item
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filename) ' Attach the file to it
doc.Form = "PDF" ' Set the form name
'doc.filesize = Filelen(filename) ' Write the filename
doc.Person = "CGChemie"
doc.werdarf=Evaluate(|@Name([Canonicalize]; "[Master]":Person)|,doc)
Call doc.Save( True, True ) ' Save the backend document
End Forall ' loop through any of the remaining files
Dim twoLiner As String
twoLiner = |Sie haben nun die Möglichkeit, den eingefügten
PDF's für die CG Chemie Kurzbeschreibungen hinzuzufügen.|
Messagebox twoLiner, MB_OK, "Erinnerung"
--------
Wer kann mir sagen, wo der Fehler ist?
