automatisches versenden von empfangsbestätigungen

[papa]

hat irgendjemand eine ahnung, wie man in notes r5 einstellen kann, dass empfangsbestätigungen nicht ohne nachfrage rausgeschickt werden?

teilweise ist das nach standardinstallation eingeschaltet - teilweise auch ausgeschaltet. ich hab aber bislang noch keinen "knopf" gefunden, wo man das einstellen könnte.

danke im voraus

gruß papa

[Christopher]

Hallo Papa,

das eine Mail mit Empfangsbestätigung gesendet worden ist erkennt man am Feld "ReturnReceipt" wenn dieses Feld den Wert 1 hat erhält der Absender eine Empfangsbestätigung. Wenn Du die Mail öffnet wird dieses Feld auf 0 gesetzt und die EMB gesendet.

Um das zu verhindern im Ordner Inbox ein Aktion erstellen die den Wert auf 0 setzt.

z.B. Field ReturnReceipt:="0";

So erhält der Empfänger keine Empfangsbestätigung. Jetzt können man auch im Ordner Inbox eine Spalte erstellen die mit "@IsAvailable(Feldname)" überprüft ob das Feld "ReturnReceipt" vorhanden ist und wenn ja ein Zahl darstellt und diese Zahl läßt Du in der Spalte durch ein Symbol darstellen. z.B. wie bei Anhängen.

Dan erkennst Du immer wenn die eine Mail mit EMB hast.

Aber wieso brauchst Du das?? Willst wohl die Mails Deiner User lesen  

[papa]

nee nee - es geht schon um meine eigenen mails. das regt mich nur jedesmal auf wenn da wieder steht "empfangsbestätigung wurde gesendet" oder so ähnlich. und am meisten regt mich aber auf, daß ich nicht mächtig bin. ich will selbst entscheiden, ob das ding rausgeschickt wird oder nicht. was denkt denn notes wer oder was es ist? ;-)

im ernst jetzt: so wie oben von dir beschrieben funktioniert das also!?! dann werde ich das mal versuchen. danke.

ich kann mir aber eigentlich nicht vorstellen, daß es dafür nicht irgendwo eine option gibt, wo ich das ein- und ausschalten kann.

naja-wie gesagt: notes allein macht eben nicht glücklich ;-)

gruß papa

[Felix]

Hallo zusammen,

habe da was gefunden das Script setze ich selbst
erfolgreich ein. Sollte jemand eine Empfangsbestätigung
aktiviert haben bekomme ich eine Meldung und kann diese dann "sofern ich möchte" abstellen.

Gruss Felix


Füge das Script ins QueryOpen Ereignis im Mail Form.


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

[papa]

super - danke!

wird dann nächste woche gleich ausprobiert.

[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]

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....  

[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]

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?

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

[Rob Green]

Frage dazu: ist im Code (da fehlt sicher ein Teil, oder?) auch der Fall für den Vertreter vorgesehen, der ja auf keinen Fall diese Meldung bekommen sollte "wollen sie...", wenn er Leser ist, denn dann würde wohl das Script in einen Fehler laufen. Zumal ich mir auch vorstellen kann, daß überhaupt keine EB rausgehen sollte, da er nicht der Primärempfänger ist.

Was war die Frage also nochmal?  
Ist Vertreter in diesem EB Verfahren berücksichtigt?

[hrcmg]

Hallo,
meine Frage ist einfach die, um dieses Script:
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
einsetzen zu können, muß ich was machen? Muß ich den Designer öffnen, ich hab´da keine Ahnung,
würde es aber gerne verstehen, lernen.

Gruß hrcmg

[eknori]

Öffne die Mail DB im Designer; bei den Masken suchst du dir die Memo. Auch die öffnest du zum Bearbeiten. Bei den Eigenschaften findest du den "Queryopen"- Event dieser Maske.
Da hinein kopierts du dann den Code


Du hast das doppelt im deinem Posting eingefügt. Daher hier nochmal der relevante Teil

                      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


eknori

[hrcmg]

Hi eknori,
Du/ihr seit alles alte Hasen, da komm ich manchmal nicht so schnell mit.

Gruß hrcmg

[eknori]

Heißt das nun: "Habs vorher nicht verstanden, jetzt kriege ich es hin" oder "Bahnhof ??"

[hrcmg]

Hi eknori,
nach deiner Erklärung weis ich jetzt was zu tun ist.

Gruß hrcmg

[wuwu]

Hallo,

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

Ist es möglich bei dem Mail das in gesendete Objekte gespeichert wird, das dort die Abfrage nicht kommt?
Wenn der User seine gesendeten Mails durchsieht bekommt er dann die Meldung!

Mfg Horst