Can users recall messages they've sent?

Gregg Eldred provided the nice agent below to do this. Caveats are that the user must ask an administrator to run the agent and the administrators have to have access to everyone's mail file. A copy of the sent message must be selected for the agent to run on:

Sub Initialize
Code: Dim db As NotesDatabase, mailDb As NotesDatabase
Dim s As New NotesSession
Dim doc As NotesDocument
Dim dc As NotesDocumentcollection
Dim notesdbdir As New NotesDbDirectory("mailserver/ou")
Dim mailDoc As NotesDocument
Dim thisLog As NotesLog
counter = 0

 '//evaluate the membership of the administrators group.  If user does not have access, then exit the routine
eval$ ={@IsMember("Administrators";@UserNamesList)}
admin = Evaluate(eval$)

 '//check security level of the person running the agent - admin level 
only
If admin(0) = 0 Then
 Msgbox "You do not have the required access to recall messages.  Please contact your Lotus Administrator.  Thank you", 0+16, "Error - Security Level"
 Exit Sub 
End If

 '//script will error if the mailDoc is not set, so force the script to resume next on any error
On Error Goto errHandler

 '//get a handle to the current database
Set db = s.CurrentDatabase

 '//get the first database in the directory on the server.
Set mailDb = notesdbdir.GetFirstDatabase(DATABASE)

 '//get the documented marked for removal
Set dc = db.UnprocessedDocuments

 '//check to make sure that a message(s) has been selected for recall. If not, then exit sub
If dc.count = 0 Then 
 Msgbox "You have not selected any messages to recall.  Please select the messages you wish to recall and run this agent again. Thank you.", 0+16, "Error - No Message Selected"
 Exit Sub 
End If

 '//Due to server performance, get only one document at a time 
Set doc = dc.GetFirstDocument

 '//set the log file using some information from the document
Set thisLog = New NotesLog("Message Recall")
Call thisLog.OpenNotesLog("server/ou", "applog.nsf")
thisLog.LogActions = True


 '//log brief information about the offending email for tracking purposes
Call thisLog.LogAction(" ********** RECALL STARTED ************* ") 
Call thisLog.LogAction(db.title & " - " & doc.universalid)

 '//check the database for the particular unid in question
While Not(mailDb Is Nothing)
 
  '//if the filepath of the database has 'mail' in it, then it should be a mail file
 If Instr(mailDb.FilePath,"mail") Then
  
   '//in order to search by unid, you must open an instance of the mail file
  Call mailDb.Open("", "")
  
   '//Search for the document by unid
  Set mailDoc = mailDb.GetDocumentByUNID(doc.UniversalID)
  
   '//if the document matching is found, remove the 
  document
  If Not(mailDoc Is Nothing) Then
   Call mailDoc.Remove(True)
   Call thisLog.LogAction("      -- document removed from db: " & mailDb.Title)
   
    '//count the number of databases that we remove the document from, for verification purposes
   counter = counter + 1
  End If
 End If
 
  '//get the next database in the directory
 Set mailDb = notesdbdir.GetNextDatabase
Wend

 '//display message to the administrator
Msgbox "Recall Complete.  Please review log file for validation. Thank you and have a great day, " & s.commonusername,  0+64, "Message Recall"

 '//finish up the logging and then close the log file
Call thisLog.LogAction(" Agent Completed -- " & counter & " databases were accessed.")
Call thisLog.LogAction(" ********** RECALL COMPLETE ************* ") 
Call thisLog.Close

errHandler:
Resume Next
End Sub

Can users recall messages they've sent?

Applies to Notes Versions: 4 4.5 4.6 5 6 6.5 7