Hallo,
hier noch eine Möglichkeit, damit man bei Aufruf der Mail entscheiden kann, ob man den Response durchführt oder nicht. Der folgende Code muß in der Memo Maske unter Queryopen eingefügt werden:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'___________________
'Return receipt handling (c)2001 by Wolfgang Flamme wflamme@mainz-online.de
Set uidoc = Source
Set doc = Source.document
Dim workspace As NotesUIWorkspace
If uidoc.IsNewDoc Then
'ignore, New Document
Else
If doc.GetitemValue("DeliveredDate")(0)="" And Not doc.GetitemValue("PostedDate")(0)="" Then
'is in Sent view, skip your own requests
Else
If doc.GetItemValue("ReturnReceipt")(0) = "1" Then
Select Case Messagebox("Der Absender dieser Nachricht wünscht eine Empfangsbestätigung. Möchten Sie diese jetzt senden? ('Abbrechen': Noch nicht senden, 'Nein': Keine senden)", MB_YESNOCancel+MB_ICONQUESTION+MB_DEFBUTTON1+MB_APPLMODAL, "Empfangsbestätigung angefordert..." )
Case IDYES
'go ahead
Case IDCANCEL
'temporarily disable
Call doc.ReplaceItemValue("ReturnReceipt","0")
Case IDNO
'kill request
Call doc.GetFirstItem("ReturnReceipt").Remove
Call doc.save (True, True)
End Select
End If
End If
End If
'Vorher
Set cMemoObject = New UIMemoDocument
Call cMemoObject.Init(Source,Isnewdoc)
'____________________
'Set cMemoObject = New UIMemoDocument
'Call cMemoObject.Init(Source,Isnewdoc)
End Sub
Viele Grüße
Majonese