Sub Click(Source As Button) Dim s As New NotesSession Dim ws As New NotesUIWorkspace Dim doc As NotesDocument Set doc = ws.CurrentDocument.Document If Not ws.DialogBox( "DialogBewirtung" , False , False, False, False, False, False, "Ort der Besprechung", doc ) Then Exit Sub End If Call doc.Save(False,False) End Sub
Set doc = ws.CurrentDocument.Document
If Not ws.DialogBox( "DialogBewirtung" , False , False, False, False, False, False, "Ort der Besprechung", doc ) Then
$PublicAccess