Domino 9 und frühere Versionen > Administration & Userprobleme

Autorespons deaktiviren

<< < (3/3)

HRaq:
@tttonic,

daher meine Frage. Das es das für Internet-Mail gibt, wußte ich.
Ich dachte nur, dass du noch was anderes herausgefunden hättest; man lernt ja nie aus  ;D

Gruß Henning

Majonese:
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  ;)

koehlerbv:
Das ist genau das, was MOD heute morgen schon als Link gepostet hat  ;D

Bernhard

Majonese:
Ups...

Sorry, da bin ich wohl doch zu schnell über den Text geflogen! Also bitte vergesst meine Antwort. MOD war definitiv schneller   :o


majonese  ;)

koehlerbv:
Naja, warum vergessen ? Da steht nun ja schon mal der Source Code. Wolfgangs Erläuterungen dazu sind aber sicher auch ganz hilfreich, daher ist es lohnend, MODs Link zu folgen.

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete