次のフォームアクションスクリプトは、ダイアログボックスを表示して、ユーザーに文書の削除の確認を求めます。アクションが表示されるのは文書が読み込みモードのときだけです。編集モードでは文書は削除できません。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim choice As String
Set uidoc = workspace.CurrentDocument
choice = Inputbox( "Do you want to delete " + _
uidoc.WindowTitle + "?","" )
If ( choice = "yes" ) Or ( choice = "y" ) Then
Call uidoc.DeleteDocument
End If
End Sub