OoO Agent - Anpassung ändert ungelesen Status

[(h)uMan]

Hallo.

wir haben den OoO Agenten ein wenig angepasst, damit der nicht auf SPAM "getagte" Mails und Newslists antwortet (siehe auch http://atnotes.de/index.php/topic,43622.0.html).

Nun ist es leider so, das durch unsere Anpassung die Mails, auf die der Agent geantwortet hat, in der MailDB des Users als gelesen markiert werden.
Das sollte natürlich nicht so sein, da der User die Mail ja nicht gelesen hat ;-)

Was muss am Code geändert werden, damit der Agent die Mails als "ungelesen" belässt?

Hier der Code:
-----------------------------------
Public Function vCheck(doc As NotesDocument, db As NotesDatabase, sNameOwner As String) As Integer
' Rückgabe:
' 0 = wenn Mail als SPAM markiert oder von Mailingliste versendet
' 1 = OK
'----------------------------------------------------------------------------------------
   vCheck = 1
   
   On Error Goto Fehler
   
   '// Ist die Mail als Spam gekennzeichnet?   
   If  (doc.HasItem("X_Spam_Score")) Then      
      If Instr(doc.GetItemValue("X_Spam_Score")(0), "*****") > 0 Then
         vCheck = 0
         Exit Function    
      End If
   End If              
   
      '// Kommt die Mail von einer Mailingliste?  
   If  (doc.HasItem("Precedence")) Then  
      If Len(Trim(doc.GetItemValue ( "Precedence" )(0))) > 0 Then
         vCheck = 0
         Exit Function              
      End If
   End If              
   
   Exit Function    
   
Fehler:
      '// Beim Fehler lieber eine Mail zu viel, als zu wenig!
   vCheck = 1  
   
   Exit Function    
   
End Function
---------------------------------------

Für Tips schon mal vielen Dank!

[(h)uMan]

Fehler gefunden. Ursache war ein DocumentSave an anderer Stelle.