Domino 下批量删除邮箱用户个人配置文档及数据库文件-阿里云开发者社区

Domino 下批量删除邮箱用户个人配置文档及数据库文件

2017-11-26 1418

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

近期一直在看Domino相关的文章，加上公司也用的是Domino系统，然后加上公司的用户数据量比较庞大，而且人员流动比较大，每日入职删除的人员比较多，这样给管理员的工作添加了很大的负担，那有什么好的办法能批量进行操作么。答案是有，那就创建一个domino库来实现，具体操作见下；

环境介绍：

我环境内放了两台Domino server，分别为：

Domain-mail01.gawian.com

Daomin-mail02.gawain.com

而且在每个服务器上创建了不同用户来进行实验，具体见下；

Lisi、lili创建在Domino-mail01.gawain.com上

Bob、bod创建在Domino-mail02.gawain.com上

接下来就开始了。首先是要安装Notes的一个插件，Domino desiguer；

安装完成后打开该插件----单击文件---应用程序—新建

服务器选择第一台----标题：delUser(delUser.nsf)然后确认

然后会自动打开该数据库，见下图

选定该数据库后---新建表单

为该表单设置一个名称：F1，然后打击确认

单击该表单后—右击—创建操作

为该操作创建一个名称：del names person，然后单击关闭

然后自动打开该操作；选择操作类型：lotusscript

然后在操作中填写执行代码：

代码内容：

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim curdoc As NotesDocument
	Set curdoc = ws.CurrentDocument.Document
	Dim se As New NotesSession
	Dim namesDB As NotesDatabase
	Set namesDB = se.GetDatabase(se.CurrentDatabase.Server,"names.nsf")
	Dim dcResult As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim formula As String
	Dim mailFiledName As String
	Dim mailDB As NotesDatabase
	Dim v As Variant
	'v=域名称
	v = curdoc.DelMailUsers_Domain
	Forall s In v
		formula = "Type='Person' & LastName ='" + Cstr(Trim(s)) + "'"
		Set dcResult = namesDB.Search(formula,Nothing,0)
		Msgbox "获取到的用户是:"+ Cstr(Trim(s))
		Msgbox  dcResult.Count
		If dcResult.Count = 0 Then
			Msgbox  Cstr(Trim(s))+"的个人文档不存在" 
		Else
			
			Set doc = dcResult.GetFirstDocument
			
			mailFiledName = doc.MailFile(0)
			Msgbox doc.MailFile(0)
			mailFiledName = mailFiledName + ".nsf"
			
		'取个人的邮件数据库
			Set mailDB = se.GetDatabase(se.CurrentDatabase.Server,mailFiledName)
			If Not mailDB.IsOpen Then
			'邮件库不存在
				Msgbox doc.LastName(0) + "的邮件库不存在。"
			Else
			'删除邮件库
				Call mailDB.Remove()
				Msgbox doc.LastName(0) + "的邮件数据库已被删除。"
			End If
			Call dcResult.RemoveAll(True)
			Msgbox  Cstr(Trim(s)) + "的个人文档已被删除。"
		End If
		
	End Forall
	Msgbox "操作完成。"
End Sub

将代码复制进去后，单击保存