Lotus Notes - Script para borrrado de correos

   
Vista:

Script para borrrado de correos

Publicado por Kantoborgy (2 intervenciones) el 28/09/2007 02:47:33
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Script para borrrado de correos

Publicado por Saúl (3 intervenciones) el 24/10/2007 00:26:50
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!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar