作成者	カテゴリ	返答の対象		公開
バンナ 06/26/2007 03:37 PM		ビューで文書選択してアクション実行したい。

承認フィールドを"checkfld"とします。
"1"の場合を承認とします。


'--- クラスの指定 ---
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
Call doc.ReplaceItemValue("checkfld","1")
Call doc.Save(True,False)
Set doc = dc.GetNextDocument(doc)
Wend

'--- 終了メッセージの表示 ---
Msgbox("終了しました")