Sub Initialize()
On Error GoTo a
'代理的权限为3:允许具有完全管理权限的受限操作才能正常运行(该代理一般用于在删除系统用户的同时删除该用户的邮箱)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim mdb As NotesDatabase
Dim strRegServer As String
strRegServer = db.Server
MsgBox "strRegServer:---" & strRegServer
Dim DeleUser As Variant
'删除用户aaa的邮箱
DeleUser = "aaa"
Set mdb = session.GetDatabase(strRegServer,"mail\"+DeleUser+".nsf")
If Mdb.IsOpen Then
'删除指定的数据库
Call Mdb.Remove
End If
Exit Sub
a:
MsgBox "错误在代理agent_DelDb的第" & Erl & "行,描述:---" & Error
End Sub
On Error GoTo a
'代理的权限为3:允许具有完全管理权限的受限操作才能正常运行(该代理一般用于在删除系统用户的同时删除该用户的邮箱)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim mdb As NotesDatabase
Dim strRegServer As String
strRegServer = db.Server
MsgBox "strRegServer:---" & strRegServer
Dim DeleUser As Variant
'删除用户aaa的邮箱
DeleUser = "aaa"
Set mdb = session.GetDatabase(strRegServer,"mail\"+DeleUser+".nsf")
If Mdb.IsOpen Then
'删除指定的数据库
Call Mdb.Remove
End If
Exit Sub
a:
MsgBox "错误在代理agent_DelDb的第" & Erl & "行,描述:---" & Error
End Sub