Das Notes Forum

Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: chock am 19.07.13 - 07:21:54

Titel: Empfangsbestätigung wird versendet, obwohl nicht angefordert
Beitrag von: chock am 19.07.13 - 07:21:54

Hallo Forum,

wir haben ein Problem zwischen 2 Usern un dzwar, User A sendet eine eMail ohne Empfangsbestätigung an User B.
Im gesendet Ordner von User B ist in den Dokumenteigenschaften das Feld ReturnReceipt nicht vorhanden. Im Eingang von User A enthät die Mail nun ReturnReceipt=1 und eine Empfangsbestätigung wird ausgelöst und aud 0 gesetzt.
Es ist auch nicht bei jeder Mail sondern nur manchmal. Bei den Usern laufen keine besonderen Agenten oder Regeln, auch am PostOpen der Inbox wurde nichts verändert.

Wo könnte man da noch suchen? Schablonenwechsel wurde schon durchgeführt.
Danke

Viele Grüße
Christian

Titel: Re: Empfangsbestätigung wird versendet, obwohl nicht angefordert
Beitrag von: ummi am 20.08.13 - 10:10:17

Hallo Christian,

ich frage mal ins blaue und vielleicht liege ich auch total daneben:

Gibt es vielleicht bei der Mail-DB einen Agenten oder etwas in der Art dessen Gestaltung geschützt ist und durch den Wechsel der Schablone nicht geändert wird?

Es gibt 2 Felder in denen die Empfangsbestätigung hinterlegt ist:
   
   Disposition Notification To + Return Receipt.

Wenn aktivierte Regeln gelöscht werden bleiben die im Hintergrund aktiv.

Vielleicht probierst du es mal damit (Regel löschen):
Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim folder As NotesView
   
   Set db = session.currentdatabase
   Set folder = db.GetView("(Rules)")
   
   Dim calendarProfile As NotesDocument
   Set calendarProfile = db.GetProfileDocument( "CalendarProfile" )
   
   
   
   Forall item In calendarProfile.Items
      If( Lcase$(Left$(item.Name,15)) = "$filterformula_" ) Then
         Print "Cleanup " & item.Name
         Call item.Remove
      End If
   End Forall
   
   
   Call calendarProfile.Save( False, False )
   
   
   Dim mailrule As NotesDocument
   Set mailrule = folder.GetFirstDocument
   While Not( mailrule Is Nothing )
      Call mailrule.ReplaceItemValue( "Enable","0" )
      Call mailrule.Save( True,False,True )
      
      Set mailrule = folder.GetNextDocument( mailrule )
   Wend
   
   
   Call workspace.OpenDatabase( db.Server, db.FilePath, "(Rules)" )
   
   Messagebox "reactivate your mail rules."
   
End Sub

Gruß
Claudia