LOTUSSCRIPT /COM/OLE のクラス
例:NotesView クラス
1. 次のスクリプトはメールデータベースで [By Category] ビューを検索して、ビューの最初の文書を取得します。
Dim db As New NotesDatabase( "Havana","mail\cbanner.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView( "By Category" )
view.AutoUpdate = False
Set doc = view.GetFirstDocument
2. 次のスクリプトはビューの完全名ではなく別名を使用して GetView を呼び出します。
Dim db As New NotesDatabase( "Havana", "calendar.nsf" )
Dim view As NotesView
Set view = db.GetView( "CategoryView" )
3. 非表示のビューにも他のビューと同じ方法でアクセスできます。非表示のビューにアクセスするには、ビュー名をカッコ内に指定します。次のスクリプトは [calendar] データベースの非表示のビューを取得します。
Dim db As New NotesDatabase( "Havana", "calendar.nsf" )
Dim view As NotesView
Set view = db.GetView( "(Days by Key)" )
4. 次のエージェントはデータベースのデフォルトのビューを検索します。NotesDatabase クラスの Views プロパティと NotesView クラスの IsDefault プロパティを使用します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim views As Variant
Set db = session.CurrentDatabase
views = db.Views
Forall v In views
If v.IsDefaultView Then
Set view = v
Exit Forall
End If
End Forall
If view Is Nothing Then
Messagebox "",, "No default view"
Else
Messagebox view.Name,, "Default view"
End If
End Sub
関連項目
NotesView クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集