Agent läuft nicht mit Auslösen durch Zeitplan

    ok würde es klappen, wenn ich ins Queryclose den Code rein pack, so dass er bei jedem Anlegen oder Ändern von einem Dokument läuft?


    Er würde doch dann von jedem Client aus gestartet, oder?

    habs mal ins Querysave vom Dokument geschrieben.


    Jetzt sagt er aber Type mismatch.


    Er erstellt zwar die File auf dem Netzwerklaufwerk aber die ist leer.


    muss ich wieder zurück zum UI Standart?

    Set doc = view.GetFirstDocument
    docCnt = 0
    While Not (doc Is Nothing)
    txt = ""
    For colCnt = 0 To lastCol Step 1
    [color=FF3333]txt = txt + doc.ColumnValues(colCnt)[/color]
    If (colCnt <> lastCol) Then
    txt = txt + Chr$(fldDelim)
    End If
    Next
    Print #fileNum%, txt
    docCnt = docCnt + 1
    Set doc = view.GetNextDocument(doc)

    Wend

    Close fileNum%

    Also wenn ich den Code ins Initialize von der Maske pack dann geht es aller dings exportiert er dann nur die Dokumente die schon in der DB stehen.
    Das Dokument was grad erstellt wird wird erst beim nächsten mal mit exportiert.


    Man müsste denk ich im Querysave sagen, dass das Dokument auch mit exportiert werden soll.

    er gibt mir immer noch einen Type mismach in der zeile


    txt = txt + doc.ColumnValues(colCnt)


    hier nochmal der Code.


    Sub Postsave(Source As Notesuidocument)
    Const textfile$ = "\\Server\Nipson_versand\huhu.txt"
    Const fldDelim% = 9 '
    Dim session As NotesSession
    Dim db As NotesDatabase
    'Dim ws As New NotesUIWorkspace
    'Dim uiview As NotesUIView
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim lastCol As Integer
    Dim colCnt As Integer
    Dim txt As String
    Dim fileNum As Integer
    Dim docCnt As Integer '

    Set session = New NotesSession
    Set db = session.CurrentDatabase
    'Set uiview = ws.CurrentView
    Set view = db.GetView("all")
    'Call view.Refresh 'Ansicht aktualisieren, damit der aktuellste Stand exportiert wird
    'view.AutoUpdate = False 'damit keine eventuellen Aktualisierungen dazwischenfunken

    lastCol = Ubound(view.Columns)
    colCnt = 0
    txt = ""
    fileNum% = Freefile()

    If Dir$(textfile, 0) <> "" Then
    Kill textfile
    End If

    Open textfile For Output As fileNum%

    Set doc = view.GetFirstDocument
    docCnt = 0
    While Not (doc Is Nothing)
    txt = ""
    For colCnt = 0 To lastCol Step 1
    txt = txt + doc.ColumnValues(colCnt)
    If (colCnt <> lastCol) Then
    txt = txt + Chr$(fldDelim)
    End If
    Next
    Print #fileNum%, txt
    docCnt = docCnt + 1
    Set doc = view.GetNextDocument(doc)

    Wend

    Close fileNum%



    End Sub

    Hi,


    Dann stellt sich dei Frage, was fuer Werte werden in der Spalte angezeigt?


    Mehfachwerte getrennt anzeigen (neue Zeile)


    In diesem Fall ist doc.ColumnValues(counter) ein Array, den Du auch als solchen behandeln musst.


    Andreas