批量创建Notes数据库示例

下面为根据数据库模板批量创建Notes数据库的例子，供参考。

Sub Initialize
 On Error Goto ErrHandle
 Dim ss As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim strPlate As String
 Dim dbPlate As NotesDatabase 
 Dim dbMain As NotesDatabase
 
 Set db=ss.CurrentDatabase
 Set doc=ss.DocumentContext
 
 strPlate="mail6.ntf"
 Set dbPlate=New NotesDatabase(db.Server,strPlate)
 If Not(dbPlate.IsOpen) Then
  Msgbox "模板文件" & strPlate & "不存在！"
  Exit Sub
 End If
 
 Dim i As Integer
 Dim strName As String
 Dim strPath As String
 For i=1 To 100
  strName="User" & i
  strPath="mail/" & strName & ".nsf"
  Set dbMain=New NotesDatabase(db.Server,strPath)
  If dbMain.IsOpen Then
   Msgbox "数据库：" & strPath & "已经存在！"
  Else
   Set dbPlate=New NotesDatabase(db.Server,strPlate)
   Set dbMain=dbPlate.CreateFromTemplate(db.Server,strPath,True)
   dbMain.Title=strName
   Msgbox "数据库" & strPath & "创建成功！"
  End If
 Next
 
 Exit Sub
ErrHandle:
 Msgbox "未知错误，错误行：" & Erl
End Sub