Habe über die Suchfunktion leider nichts gefunden. Stelle meine Frage daher halt direkt.
Kann man bei einer 5er oder 6er Client die Lesebestätigung für Email deaktivieren, oder noch besser, so einstellen, dass man eine solche Rückantwort bestätigen muss?
Gruss Schubo
Als "Normalbenutzer" nicht, als Admin kann man die Mailschablone ändern das dies geht... - ist kein Problem.
Hier habe ich jetzt nichts zu diesem Thema gefunden, suche aber mal im ATNOTES Forum http://www.atnotes.de nach ReturnReceipt und Du findest alles wie man das machen muss..
Empfehlenswert ist es trotzdem nicht an der Mailschablone rumzubasteln...
Danke für den Tip. Werde das Skript morgen mal ausprobieren. Für alle die es interessiert. Hier der Code:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant,
Continue As Variant)
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("Die Nachricht möchte eine Empfangsbestaetigung senden. Soll die Empafangsbestaetigung gesendet werden? (NEIN schaldet temporaer ab)",boxType&, "Weiter?" )
If answer% = 7 Then
doc.ReturnReceipt = "0"
Messagebox("Empfangsbestaetigung deaktiviert. Es wird keine Nachricht gesedet")
End If
End If
End If
End Sub
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
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("Die Mail verlangt eine Empfangsbestätigung. Möchten Sie diese senden? (Nein temporär abschalten)",boxType&, "Weiter?" )
If answer% = 7 Then
doc.ReturnReceipt = "0"
Messagebox("Empfangsbestätigung inaktiv. Es wurde keine Nachricht gesendet.")
End If
End If
End If
End Sub
