Mit Agent Dokumente erstellen?

[sharif]

Hallo!

habe folgendes Problem!

Ich lese Daten aus einer .txt Datei aus, diese Datensätze sind mit "," getrennt! Nach dem Auslesen soll eine bereits zum füllen vorhandene From mit den Werten aus der Datei gefüllt werden. Das Doc soll allerdings ganz neu angelegt werden. Hier mein Ansatz:

Sub Initialize
   
        'Schleifen
        Dim i,x,y As Integer

        'String teilen
        Dim laenge As Integer
        Dim zeichen As String
        Dim position() As Integer

        'Datei zum lesen oeffnen
        Dim sFile As String
        Dim sRow() As String
        Dim sTxt As String
        Dim fileNum As Integer
        Dim counter As Integer

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As New NotesDocument (db)
   Set db = session.CurrentDatabase
   
   'Die Datei zuweisen und öffnen...
   sFile = "E:\flughafen.txt"
   fileNum = Freefile()
   Open sFile For Input As fileNum
   
   counter = -1
   Do While Not Eof(fileNum) ' EOF = End Of File
      Line Input #fileNum, sTxt
      counter = counter + 1
      Redim Preserve sRow(0 To counter)
      sRow(counter) = sTxt
   Loop
   
   For i = 1 To counter
      laenge = Len(sRow(i))      
      y = 1
      
      For x = 0 To laenge
         zeichen = Mid$(sRow(i),x,1)      
         If zeichen = "," Then
            position(y) = x
         End If
      Next
      
      Set doc = db.CreateDocument
      
      doc.FlughafenAName = Mid$(sRow(i),o,position(1)-1)
      doc.FlughafenAVorname =               Mid$(sRow(i),position(1),position(2)-1)
      Call doc.Save(True,True)   
      
   Next
   
   Close fileNum
   
End Sub

Als fehler gibt Notes mir folgendes an: "Action Failed, To run this agent you must have at least one document selected"

So jetzt seit ihr dran!

[Semeaphoros]

Willkommen im Forum


In den Agenten-Eigenschaften steht, unter welchen Bedingungen der Agent laufen soll. Da steht fast sicher "Alle ausgewählten Dokumente" (oder so ähnlich). Das muss umgestellt werden auf "Keine"

[klaussal]

... und ein doc.form =  fehlt auch noch

[Semeaphoros]

... stimmt, ausser das gewünschte Formular ist (und vor allem bleibt!! ) per Zufall das Defaultformular. Sicher ist sicher, daher sollte man es unbedingt setzen.

[umi]

PS: schau mal auf die Funktion strToken() .... oder split()

gruss umi

[sharif]

Danke für die schnelle Hilfe! Echt SUPER!!!

Die Lösung:
In den Agenten-Eigenschaften steht, unter welchen Bedingungen der Agent laufen soll. Da steht fast sicher "Alle ausgewählten Dokumente" (oder so ähnlich). Das muss umgestellt werden auf "Keine"