Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

Lesebestätigunge senden abstellen bzw. Abfrage

<< < (2/2)

Kotzlowski:
Im Designer die Vorlage öffnen

Doppelklick auf "Masken - Nachricht" oder "Masken - Memo" (je nach Version unterschiedlich)

Dann zu "Objekt - Memo - Queryopen" wechseln


--- Zitat ---Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Set cMemoObject = New UIMemoDocument         
   Call cMemoObject.Init(Source,Isnewdoc)
End Sub
--- Ende Zitat ---

Nach Sub Queryopen... folgendes einfügen:


--- Zitat ---   Set uidoc = Source
   Set doc = Source.document
   If uidoc.IsNewDoc Then
   Else
      RR = doc.GetItemValue("ReturnReceipt")
      If RR(0) = "1" Then
         boxType& = MB_YESNO
         answer% = Messagebox("Der Absender der Nachricht möchte eine Empfangsbestätigung erhalten. Soll diese jetzt gesendet werden?",boxType&, "Weiter?" )
         If answer% = 7 Then
            doc.ReturnReceipt = "0"
            boxType& = MB_YESNO            
            answer2% = Messagebox("Wollen Sie beim nächsten Öffnen der Mail erneut gefragt werden?",boxType&, "Weiter?" )
            If answer2% = 7 Then            
               Call doc.Save(True, True)
            End If
            Messagebox("Empfangsbestätigung wurde nicht gesendet.")
         End If
      End If
   End If
   
   If source.InPreviewPane Then Exit Sub
--- Ende Zitat ---

Damit wird man dann beim Öffnen der Mail gefragt, ob man jetzt eine Empfangsbestätigung senden will. Falls man jetzt keine senden will, wird man gefragt, ob man künftig nochmal gefragt werden soll. Hat man das Preview-Fenster geöffnet, wird man auch gefragt.

Das ist eine abgeänderte Version, die unter http://atnotes.de/index.php/topic,5264.0.html gepostet wurde.

Navigation

[0] Themen-Index

[*] Vorherige Sete