Hallo Leute,
ich benötige Rat.
Folgende Schleife soll aus allen angewählten Dokumenten
ein Feld auslesen, die Schleife wird aber genau einmal
durchlaufen.
Ist kalr, weil das db.unprozessed den Wert 1 hat.
Aber wieso, ich habe Dutzende von Dokumenten angewählt. ?
Zur Ergänzung :
Der User wählt eine Menge von Dokumenten aus, wählt eine Aktion
aus, hinter der ein Agent steht, der in LScript geschrieben ist.
Das WEND wird komplett ignoriert.
Dim session As New NotesSession
Dim nnUserName As New NotesName(session.UserName)
' ************************
Dim docList As String
Dim LISTE List As String
Dim iKonflikt As Integer
'*************************
Dim dc As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set session = New notessession
Set db=session.currentdatabase
Set dc=db.UnprocessedDocuments
iKonflikt = 0
Set doc=dc.GetFirstDocument
While Not (doc Is Nothing)
'
' WELCHE VORGÄNGE WURDEN GEWÄHLT
'
If Iselement(LISTE(doc.e4ihk_Identnummer(0)) ) Then
' NIX
Else
LISTE(doc.e4ihk_Identnummer(0)) = doc.e4ihk_Identnummer(0)
docList = docList & Chr(10) & doc.e4ihk_Identnummer(0) & " " & doc.sf_Firmierung(0)
End If
Set doc = dc.GetNextDocument(doc)
Wend