title image


Smiley Re: Danke und ....
..... wie fuege ich das script ein?



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



Danke



Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: