通过LS删除服务器中指定的数据库

 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