LOTUSSCRIPT /COM/OLE のクラス

例:FindFreeTimeDialogEx メソッド
次のアクションは、現在の UI 文書の [SendTo]、[CopyTo]、および [BlindCopyTo] フィールドに入っている名前と [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
 Dim reqPeople(3) As String
 reqPeople(0) = "SendTo"
 reqPeople(1) = "CopyTo"
 reqPeople(2) = "BlindCopyTo"
 Call uidoc.FindFreeTimeDialogEx _
 (reqPeople, "", "", "", "", "", "", _
 "StartDateTime", "EndDateTime")
End Sub

関連項目