Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: papa am 09.05.02 - 17:42:45
-
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
-
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 ;D ;D ;D
-
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
-
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
-
super - danke!
wird dann nächste woche gleich ausprobiert.
-
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
-
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
-
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
-
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 (http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/ReturnReceipt1)
-
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
-
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? ;D
Ist Vertreter in diesem EB Verfahren berücksichtigt?
-
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
-
Ö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
-
Hi eknori,
Du/ihr seit alles alte Hasen, da komm ich manchmal nicht so schnell mit.
Gruß hrcmg
-
Heißt das nun: "Habs vorher nicht verstanden, jetzt kriege ich es hin" oder "Bahnhof ??"
-
Hi eknori,
nach deiner Erklärung weis ich jetzt was zu tun ist.
Gruß hrcmg
-
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