Lotus Notes / Domino Sonstiges > Tipps und Tricks

Return Receipt verhindern ...

(1/2) > >>

kloeti:
Sali zämme ...

Hat einer von Euch ev. ein Script parat, mit dem man den Delivery Receipt verhindern kann?   :P

Gruzz
kloeti

eknori (retired):
na logisch.

das hier in einen Agenten gepackt ( nach Eingang neuer Mail )

und schon ist Ruhe  ;D

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

Hardy:
Moin,

wie wärs hiermit ?

In das Queryopen der Maildatenbank kopieren.
(Vorhandene Einträge überschreiben!):

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     Set cMemoObject = New UIMemoDocument        
     Call cMemoObject.Init(Source,Isnewdoc)  
     Set uidoc = Source
     Set doc = Source.document
     If uidoc.isNewDoc Then
'don' t do anything, as this is a new document
     Else
           RR = doc.GetItemValue("ReturnReceipt")
           If RR(0) = "1" Then
                 boxType& = MB_YESNO
                 answer% = Messagebox ("Der Absender erwartet eine Empfangsbestätigung." + Chr(13) + " >>>> Wollen Sie diese versenden ? ", boxType&, "Empfangsbestätigung ?")
                 If answer% = 7 Then
                       doc.ReturnReceipt="0"
                 End If
           End If
     End If
     
     
End Sub

Wenn ReturnReceipt vorhanden erscheint ein PopUp Fenster mit einer Abfrage

Gruß

Hardy

kloeti:
@eknori ... geht ned   :-/

@Hardy ... wo find ich die QueryOpen? Hast Du einen Screenshot, damit ich nix falsch mache?

Grazie  ;D
kloeti

Felix:
Hallo kloeti,

Mail DB im Designer öffnen – auf Maske gehen Memo öffnen –
unter dem Punkt Memo (Maske) in den Objekten Queryopen auswählen – Script einkopieren
Fertig

Felix

Navigation

[0] Themen-Index

[#] Nächste Seite