Domino 9 und frühere Versionen > Administration & Userprobleme

automatisches versenden von empfangsbestätigungen

<< < (2/4) > >>

gpeters:
Der "pragmatische Tipp":

Wenn ich befürchte, daß eine Mail eine Empfangsbestätigung versendet - und mir das gefriggel mit den Feldern usw. zu blöd ist - dann klicke ich auf Weiterleiten.

Die Mail öffnet sich - aber es wird keine Empfangsbestätigung verschickt.

Sicherlich geht auch die Vorschau oder Antworten mit Protokoll und natürlich die Felder via Dokument-Eigenschaften betrachten. Das habe ich aber nicht so getestet wie WEITERLEITEN.

Gerald

eknori (retired):
Ich gehe da noch etwas dreister zu Werke und schalte die Empfangsbest. einfach aus.

Habe einen Agenten, "Nach Einhang neuer Mail" mit folgender Formel

FIELD ReturnReceipt:= ReturnReceipt;
FIELD Subject:= Subject;
@If(@IsAvailable(ReturnReceipt);
@If(ReturnReceipt = "1";
@Do(
@SetField("ReturnReceipt"; "0");
@SetField("Subject"; "****** INFO: DISABLED \"Return Receipt\" ****** " +
Subject)); ""); "");

Der macht den "Sammlern" von RR einen Strich durch die Rechnung.

Das lässt sich natürlich noch weiterspinnen, wenn man im queryopen der mailmaske entsprechenden Code hinterlegt, der eine Dialogbox anzeigt " Möchten sie ein RR versenden ?? "

Hab mal einen User gefragt, der generell jede Mail mit RR verschickt, ob er auch jeden Brief grundsätzlich per Einschreiben mit Rückschein / eigenhändig, vertraulich versendet....  :o :o 8) :D ;D

hrcmg:
Wo setze ich dieses Script ein, d.h. wo finde ich das Teil. Ich würde diesen Automatismus auch gerne abstellen. Wie muß ich vorgehen um diese Einstellung warnehmen zu können?

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

Danke für eure Hilfe.

Gruß hrcmg

wflamme:

--- Zitat von: hrcmg am 02.12.02 - 22:03:31 ---Wo setze ich dieses Script ein, d.h. wo finde ich das Teil. Ich würde diesen Automatismus auch gerne abstellen. Wie muß ich vorgehen um diese Einstellung warnehmen zu können?

--- Ende Zitat ---

ZB hier:
http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/ReturnReceipt1

Myron:
so gehts auch ...

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim note As notesdocument
   If Not isnewdoc Then
      Set note=source.document        
      If note.hasitem("ReturnReceipt") Then
         If Not note.getitemvalue("ReturnReceipt")(0)="0" Then
            If Not (Messagebox ("Wollen Sie die Empfangsbestätigung wirklich schicken?" , 4+256, "MAIL")=6) Then
               Call note.removeitem("ReturnReceipt")
               Call note.save(True,True, True)
            End If
         End If
      End If
   End If
   Set cMemoObject = New UIMemoDocument
   Call cMemoObject.Init(Source,Isnewdoc)
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete