批量创建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