LOTUSSCRIPT /COM/OLE のクラス
例:SavedData プロパティ
1. 次のスクリプトは、現在のエージェントスクリプトの SavedData 文書を取得し、その RunDate アイテムを今日の日付に設定します。
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.SavedData
doc.RunDate = Date
Call doc.Save( True, True )
2. 次のエージェントスクリプトは、営業担当者が作成した今週のリードの最大数と先週作成されたリードの最大数を比較します。スクリプトは、各営業担当者によって記入された Lead 文書を含むビューを調べます。ビューの最初の列では、各営業担当者が作成したリード数が降順にソートされ、最もリードの多い Lead 文書がビューの先頭に配置されます。この文書の NumLeads アイテム (この週に作成されたリードの最大数を表す) が、SavedData 文書の MaxLeads アイテム (先週に作成されたリードの最大数を表す) と比較され、それに応じて Summary アイテムが更新されます。その後、SavedData 文書の MaxLeads アイテムが更新され、両方の文書が保存されます。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc, agentDoc As NotesDocument
Dim d As Integer
Set db = session.CurrentDatabase
Set view = db.GetView _
( "This week's leads by salesperson" )
' first document in view has the most leads
Set doc = view.GetFirstDocument
Set agentDoc = session.SavedData
' the first time agent runs,
' there are no items on SavedData
' so set the MaxLeads item to zero
If Not( agentDoc.HasItem( "MaxLeads" ) ) Then
agentDoc.MaxLeads = 0
Call agentDoc.Save( True, True )
End If
d = doc.NumLeads( 0 ) - agentDoc.MaxLeads( 0 )
If ( d > 0 ) Then
doc.Summary = Abs( d ) & _
" more leads than last week's max."
Elseif ( d < 0 ) Then
doc.Summary = Abs( d ) & _
" less leads than last week's max..."
Else
doc.Summary = _
"You matched last week's max number of leads."
End If
' put this week's max leads onto SavedData
agentDoc.MaxLeads = doc.NumLeads
Call doc.Save( True, True )
Call agentDoc.Save( True, True )
End Sub
関連項目
SavedData プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集