LOTUSSCRIPT /COM/OLE のクラス

例:Documents プロパティ
次のビューアクションは、現在のビューで選択されている文書の Amount アイテムの合計を計算します。

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim total As Double
Set uiview = ws.CurrentView
Set dc = uiview.Documents
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
If doc.HasItem ("Amount") Then
total = total + Cdbl (doc.GetItemValue ("Amount") (0))
End If
Set doc = dc.GetNextDocument (doc)
Wend
Messagebox total,, "Total amount"
End Sub

関連項目