Need dialog box functionality on a group of documents

HCL Domino Domino Forum
1

I’m looking to perfom an update on fields across multiple documents selected in a view based on information gathered from a single dialog box.

Does anyone have any suggestions? I like the functionality of a dialog box, but don’t like that it only works with a single document at a time.

Thanks,

Liz Burke-Scovill

2

Subject: need dialog box functionality on a group of documents

Lotusscript.

3

Subject: Get the data into a dummy document that is never saved. Then apply the changes to all the docs. You will have to use LS to do this.

4

Subject: RE: Get the data into a dummy document that is never saved. Then apply the changes to all the docs. You will have to use LS to do this.

Thanks - I didn’t get this until today (I thought I had mail notification on threads at one point) - but that’s exactly what I did.

I couldn’t figure out how to make the document not savable, so have a routine to delete the document created once the agent is finished running. But all in all it works rather well :slight_smile:

Thanks!

5

Subject: Here is some basic code to do this…

Dim s As New NotesSession	Dim w As New NotesUIWorkspace

Dim db As NotesDatabase

Dim dc As NotesDocumentCollection

Set db = s.CurrentDatabase

Set dc = db.UnprocessedDocuments

Dim ddoc as NotesDocument

Dim doc as NotesDocument

Set ddoc = db.CreateDocument

ret = w.DialogBox("Box", True, True, False, False, False, False, "Box", ddoc)
Set doc = dc.GetFirstDocument

For i = 1 To dc.Count

	Print "Processing doc #" + Format(i, "0000") + " of " + Format(dc.Count, "0000")

	doc.YourField = ddoc.YourField

	Call doc.Save(False, False)

	Set doc = dc.GetNextDocument(doc)

Next
6

Subject: RE: Here is some basic code to do this…

Thank you! I modified my main agent using some of what you posted here, and it works beautifully.

7

Subject: Anytime :-).