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  

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

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

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

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

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

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

Gruß hrcmg

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

Gruß hrcmg