Hallo zusammen - erst mal ein dickes Lob an unsere Programmierer!!!
Das Script, welches weiter oben "angeboten" wird, wurde von unseren Programmierern dahingehend "verbessert", dass nur beim ersten Öffnen des Mails nachgefragt wird, ob man eine EB senden möchte, oder nicht. Beim "Original-Script" ist es ja so, dass man jedesmal, wenn man das bereits gelesene Mail wieder öffnet, erneut gefragt wird.
Anbei das komplette Script:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Set uidoc = Source
Set cMemoObject = New UIMemoDocument
Call cMemoObject.Init(Source,Isnewdoc)
Set doc = Source.document
If uidoc.IsNewDoc Then
' don't do anything, as this is a new document ...
Else
RR = doc.GetItemValue("ReturnReceipt")
If RR(0) = "1" Then
boxType& = MB_YESNO
answer% = Messagebox(" Möchten sie diese schicken? (Nein, unterdrückt eine Empfangsbestätigung)",boxType&, "Diese Nachricht enthält eine Empfangsbestätigung!" )
If answer% = 7 Then
' determine if the user would like to return the receipt
doc.ReturnReceipt = "0"
Messagebox("Empfangsbestätigung deaktiviert. Es wird keine Nachricht versendet")
Call doc.save (True, True)
'RR on this message;
End If
End If
End If
End Sub
Echt SUPER - so habe ich mir das vorgestellt!
Gruß an ALLE - Dietmar
