Hi,

ich glaube nicht, dass sowas geht. Das ist in Notes fest verdrahtet.


Axel

Du könntest mit dem SaveOptions-Feld hantieren und darauf basierend einen eigenen Speichern-Dialog einbauen. Ist aber recht umständlich, wenns nur um den Text geht.

... dann stell doch mal das teil hier rein  

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.