LOTUSSCRIPT /COM/OLE のクラス

例:QuerySend イベント
次の QuerySend イベントは、文書を送信するかどうかをユーザーに確認します。

Sub Querysend(Source As Notesuidocument, _
Continue As Variant)
 Dim answer As Integer
 answer = Messagebox("Do you really want to send this?", _
 MB_YESNO, Source.FieldGetText("Subject"))
 If(answer = IDYES) Then
   Continue = True
 Else
   Continue = False
 End If
End Sub

関連項目