Lotus Notes - Script para borrrado de correos

Hola todos,

saben de algun script para que elimine de un tiron un correo especifico de cada una de las bases de correo de cada uno de los mil y pico de usuarios de mi server de lotus notes ? son muchos usuarios como para con el administrador ir borrando de uno en uno un mensaje que por error se fue a todos con informacion incorrecta.

gracias

Si es posible realizar la tarea que tu dices, para eso tienes que realizar un agente en el cual establezcas el criterio de búsqueda de los documentos que quieres borrar.

Ejemplo:

Sub Initialize
Dim wks As New notesuiworkspace
Dim s As New notessession
Dim db As notesdatabase
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim registros As notesdocumentcollection
Dim formula As String
Dim doctemp As notesdocument

Set db = s.currentdatabase
Set uidoc = wks.currentdocument

formula = { (SELECT form = "Memo" & @adjust(DisplayDate;0;0;7;0;0;0) = @today) }

Set registros = db.search(formula,Nothing,0)

Set doc = registros.getfirstdocument

Messagebox registros.count

For x = 1 To registros.count
Set temp = doc
Set doc = registros.getnextdocument(doc)
Call temp.remove(True)
Next


End Sub

Espero que te sirva!

Saludos!