title image


Smiley Re: Die das in aller Regel nicht tun werden, weil sie sich damit auf Dauer ...
Hallo,



diesen Code in das QueryOPen der Mail Maske.

Ist bei uns Firmenpolicy, da es niemanden etwas angeht wer wann welchen Brief/

Mail öffnet.





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 (" Empfangsbestätigung ?" + Chr(13) + " >>>> So nicht, nicht mit uns !!!", boxType&, "Empfangsbestätigung versenden?")

If answer% = 7 Then

doc.ReturnReceipt="0"

End If

End If

End If

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: