Domino 9 und frühere Versionen > Administration & Userprobleme

automatisches versenden von empfangsbestätigungen

<< < (3/4) > >>

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?  ;D
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 ??"

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete