Bidde sehr...
Einfach in der Maske folgende Codes eingeben!
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim doc As NotesDocument
Set doc = Source.Document
If doc.Status(0) = "Anderer Speicherdialog" Then
doc.SaveOptions = "0"
End If
End Sub
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Source.EditMode = True Then
Dim doc As NotesDocument
Set doc = Source.Document
If doc.HasItem("SaveOptions") Then
Dim strMeldung As String
Dim i As Integer
i = 0
i = Msgbox("Meldungstext.",35,"Überschrift")
If i = 7 Then
'Raus ohne Speichern
Exit Sub
Elseif i = 2 Then
'Abrechen
continue = False
Exit Sub
Else
'Speichern
Call MeineAktionDieBeimSpeichernDurchgeführtWerdenMuss(doc)
End If
Dim item As NotesItem
Set item = doc.GetFirstItem("SaveOptions")
If Not item Is Nothing Call item.Remove()
Call Source.Save()
Call Source.Close()
End If
End If
End Sub
Das einzige Problem dabei ist nur, daß die Meldung auch dann kommt, wenn keine Änderung im Dokument vorgenommen worden ist. Wie man das Prüfen kann, weiß ich leider nicht.
