使用Lotus Notes中的Dialogbox更改多个文档中的数据

Question

我创建代理以使用对话框更改多个文档中的特定字段（在视图中选择）。 到目前为止，这是我的代码：

Sub Initialize
Dim s As New NotesSession 
Dim db As NotesDatabase 
Dim g_doc As NotesDocument
Dim g_col As NotesDocumentCollection    
Dim ws As New NotesUIWorkspace  
Set db = s.CurrentDatabase  
Set g_col = db.Unprocesseddocuments
Set g_doc = g_col.Getfirstdocument


Call ws.Dialogbox("(book_data_agent)", True, True, False, True, False, False, "Change data")


 Its easy to change fields for one document, but now im stuck when I try to change values in all selected documents.

Answer 1

只需使用“StampAll” - NotesDocumentCollection的方法。

Call g_col.StampAll( "ItemName", "NewValue" )