Adressenauswahl in Schleife abarbeiten

[BennyB]

Ich kann ja in der Adressdatenbank (names.nsf) mehrere Adressen markieren (einen Haken davor setzen). Wie kann ich nun bei einer Aktion alle diese Einträge bearbeiten? Wo muss ich ansetzen?

[diali]

Du kannst mit NotesDatabase.UnprocessedDocuments Dir eine DocumentCollection der markierten Dokuemente holen. Und dann in einer Schleife abarbeiten.

set dc = db.UnprocessedDocuments
set doc = dc.GetFirstDocument
While not doc is nothing
' tu etwas mit dem doc
set doc = dc.GetNextDocument(doc)
wend

[klaussal]

DocumentCollection und unprocessed Documents.

In der Designer-Hilfe steht ein Beispiel...  

50 sec. langsamer 

[diali]

50 sec. langsamer

geht mir auch oft so und dann muss ich mir die rote Schrift ansehen.

[BennyB]

ok, verstanden. Jetzt hab ich nur ein Problem, dass ich bisher mit der Formel gearbeitet habe. Wie kann ich die umsetzen in notesscript?

@SetField("Klassifikation"; "A")

[klaussal]

... vielleicht liegt's bei mir am Alter..  

[klaussal]

Grundsätzliche Frage: Hast Du überhaupt Ahnung von LS ?

[BennyB]

Jein, ich hab vorgestern angefangen notes anwendungsentwicklung mit dem designer zu lernen. hab zwei ebooks durchgearbeitet, aber zu diesem Thema nichts gefunden. Also was ihr mir oben geschrieben habt hab ich auch gleich verstanden, den ganzen syntax kann ich halt noch nicht so "auswendig" und bis jetzt bin ich mit den Formeln zu rande gekommen.

[klaussal]

@SetField("Klassifikation"; "A")  entspricht in LS:

doc.Klassification = "A"     <-- nur mal so grundsätzlich ! es kommt aber immer auch auf die dim und set(s) an, wie das doc tatsächlich heisst.

[BennyB]

ok, ich werde mal probieren was sich machen lässt, denke ich hab jetzt alle infos die ich brauche. Thx a lot

[BennyB]

Habe es nun folgendermaßen umgesetzt, bekomme keinen Fehler, aber auch keinen Effekt.


   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   Set doc = dc.GetFirstDocument
   
   While Not (doc Is Nothing)
      
      doc.Klassifikation = "A"
      
      Set doc = dc.GetNextDocument(doc)
   Wend

[diali]

Du musst das Doc noch speicheren.

doc.Save True, true, true

[BennyB]

danke, das hab ich übersehen in der hilfe

TOPIC CAN BE CLOSED