Dominoオブジェクト取得までの基本セット
実行環境の取得
getSessionAndWorkspace
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
現在開いているアプリケーションの取得
getNotesApp
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
現在画面に開かれている文書の取得
- 画面に文書が表示されていない場合はuiDoc変数にNothingが代入される。
getCurrentDocument
Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Set uiDoc = ws.CurrentDocument
現在画面に開かれているビューの取得
- 画面に文書が表示されていない場合はuiView変数にNothingが代入される。
getCurrentDocument
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView