..erledigt
Dank eines usereintrags von "Myron" könnte man die Empfangsbestätigung so steuern, ob man eine verschicken möchte oder nicht!
mit dem nachfolg. Code, die Eintragung im Designer --> Forms --> Memo --> in "Queryopen"
eingeben und fertig!
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
-----------
Posting vom 03.12.2002 -
http://www.atnotes.de/index.php?board=6;action=display;threadid=1394;start=0-----------
Gruß
Kemal