lotus怎么清理邮件啊

[好久没上]

我现在接到个任务，就是对系统内所有帐号2004/3/31之前的邮件进行清理（我会出公告告诉系统用户这件事），谁能告诉我怎么清理吗？我觉得这也算是个典型问题吧

[好久没上]

步骤很清楚了，问题是我不会写代理啊，谁能出个方案给我啊

[freyild1979]

对邮件管理不是很熟，好像没有直接清理的方法，
写个程序，遍历所有用户的邮箱数据库，搜索该日期以前的文档，然后删除。

[好久没上]

哦，程序复杂不复杂

[cnhxjtoa]

只能通过用户自己删除邮件
当然也可以通过程序
如果通过程序删除那你只有通过更换邮件的模板,写代理或操作按钮,距离服务器一年的时间的邮件全部删除.
因为管理员也是没有办法访问一般用户的邮件的,所以只能更换邮件数据库的模板.

[chenmengliang]

用管理员身份写一个代理，用于删除2004/3/31之前的邮件，把这个代理放到邮箱模板中，刷新用户邮箱设计，让每个用户执行一下这个代理

[pengl]

在邮箱模板里写程序,当用户打开邮箱或关闭时,执行此程序.

这个一定可以,因为我们就用此方法强行删邮件的.

[our307]

把这个代理放到管理员的邮件库中,执行就可以删除所有人的所有邮件,如果需要的话拟还可以在修改细致些,这个的能力过于强大了.

Sub Initialize
Dim session As New notesSession
Dim curdb As notesDatabase
Dim db As notesDatabase
Dim doc As notesDocument
Dim view As NotesView
Dim ndir As notesdbdirectory
Dim collection As NotesDocumentCollection

Msgbox "start"
Set curdb = session.CurrentDatabase
servername = curdb.Server
curDbPath =curdb.filepath
curDbName =curdb.filename
m = Instr(1,curDbPath,curDbName)
curDbpath =Left(curDbPath,m-1)
curDbPath =servername+"!!"+curDbPath
Set ndir =New notesdbdirectory(servername)

Set db = ndir.GetFirstDatabase( DATABASE )
i=0
While Not(db Is Nothing)
DbPath=db.filepath
DbName=db.filename
n = Instr(1,DbPath,DbName)

DbPath=Left(DbPath,n-1)
'Msgbox "curDbPath is ----"+curDbPath
'Msgbox "DbPath is ----"+DbPath

If curDbPath=DbPath Then

Call db.open("","")
'Set view=db.getView("($All)")

'Set doc =view.getfirstdocument
'While Not(doc Is Nothing)
' Call doc.Remove( True )
' Set doc=getnextDocument
'Wend
Set collection = db.AllDocuments
Call collection.removeAll(True)
i=i+1
End If

Set db=ndir.getnextdatabase
Wend




Print "<p align='center'>所有用户邮件已被清空。</font></p>"


End Sub

[好久没上]

有没高手啊

[好久没上]

要限日期之前的删除的话，在哪里修改

[tcmcq]

选择文档的时候。我觉得应该设计一个规则文档。在代理运行的时候，从规则文档读取日期等信息。

[our307]

时间限制很简单啊,用的search就可以把某一时间中的文档选中,然后在删除,这些要看具体应用了.

[whang1980]

关注

[好久没上]

。。。

[eino]

删除之后记得要压缩数据库
否则硬盘空间不释放