Agent problem

    Hallo
    Ich als nichtentwickler möchte gerne einen Agenten in Formula bauen der nach einer entspechenden inputbox ein Feld in allen selektierten Dokumenten ändert.


    Das Problem ist das der Agent die Prompt Box für jedes Dokument bringt.


    Hat jemand einen Tip für mich ?


    Grüße


    Frank

    Hi, Versuchs mal mit folgendem Agenten (is allerdings in LotusScript).


    FELDNAME muss natürlich gegen den Namen des Feldes ausgetauscht werden, das du füllen willst.



    Sub Initialize

    Dim objSession As New NotesSession
    Dim objCollDocs As NotesDocumentCollection
    Dim objDoc As NotesDocument
    Dim sValue As String

    Set objCollDocs = objSession.CurrentDatabase.UnprocessedDocuments

    'Dokumente müssen selektiert sein
    If Not objCollDocs.Count = 0 Then
    sValue = Inputbox("Bitte geben Sie einen Wert ein")
    'Prüfen, ob auch ein wert erfasst wurde
    If Not sValue = "" Then
    Set objDoc = objCollDocs.GetFirstDocument
    'in allen selektierten dokumenten den wert setzen
    Do While Not objDoc Is Nothing
    objDoc.FELDNAME = sValue
    Call objDoc.Save(True, True)
    Set objDoc = objCollDocs.GetNextDocument(objDoc)
    Loop
    End If
    End If

    End Sub


    gruß


    der Doc