LOTUSSCRIPT /COM/OLE のクラス

例:FindFreeTimeDialog メソッド
次のアクションは、現在の UI 文書の [SendTo] フィールドに入っている名前と [StartDateTime] および [EndDateTime] フィールドの日時を使って、[空き時間の検索] ダイアログボックスを開きます。

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.Refresh
If Not uidoc.EditMode Then uidoc.EditMode = True
Call uidoc.FindFreeTimeDialog _
("SendTo", "", "", "", "", "", "", _
"StartDateTime","EndDateTime")
End Sub

関連項目