Subject: RE: Email not delivered, log shows delivered, user activity detail shows no write
Kevin
This really sounds like a ghost rule in action. Check the log on the server and you should find a few lines after the Delivered one that the user has one or several mail rule affected.
I had one user who set a rule saying anything but a certain Spam (yes, that was an error) should be deleted. So the server would confirm delivery to the mailbox but it would never show up. Messages were deleted automatically.
Removed the rule and all worked fine.
Now, if it is a Ghost rule, I believe you can do a compact -c on the mailfile and this should clear the ghost rule. I did a local copy in my case and it fixed the problem.
Other things could be the location of the user mailfile in the person doc. But I am sure you checked that. or a server rule but then it would not say Delivered.
Did you check DDM? It should let you know if there is other problem
I would check the log a few lines after the Delivery confirmation. There is also a code to remove Ghost rules. Actually, it removes all the rules. But it works great… Here it is …
Hope this helps…
Jacques
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.currentdatabase
Dim workspace As New NotesUIWorkspace
'This folder contains all the Mail Rules.
Dim folder As NotesView
Set folder = db.GetView("(Rules)")
'Find the calendar profile document in the current database. (GetProfileDocument will create the named profile document if it does not already exist.)
Dim calendarProfile As NotesDocument
Set calendarProfile = db.GetProfileDocument( "CalendarProfile" )
'Mail Rules are compiled and saved in special fields named $FilterFormula_xx
'Remove all of these fields from the calendar profile.
Forall item In calendarProfile.Items
If( Lcase$(Left$(item.Name,15)) = "$filterformula_" ) Then
Print "Cleanup " & item.Name
Call item.Remove
End If
End Forall
'Save changes to the calendar profile.
Call calendarProfile.Save( False, False )
'Disable all Rules.
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
'Open the Rules folder
Call workspace.OpenDatabase( db.Server, db.FilePath, "(Rules)" )
'Message to the user.
Messagebox "Cleanup complete."
End Sub