createfromtemplate的第一个参数应该是服务器名，不是数据库名。给段以前写的代码供参考。注意，代码未经测试。
功能是给通讯录里面的用户重建邮箱。
Sub Initialize
 '获取服务器的通讯录
 Dim ss As New NotesSession
 Dim books As Variant
 books = ss.AddressBooks
 Dim adb As NotesDatabase 
 Forall b In books
  If b.IsPublicAddressBook Then 
   Set adb = b
   Call adb.Open(b.server,b.filepath)
  End If  
 End Forall 
 '获取通讯录个人视图
 Dim view As notesview
 Set view = adb.GetView("people")
 
 Dim doc As notesdocument 
 Set doc = view.GetFirstDocument
 '邮件模板
 Dim tdb As New NotesDatabase(adb.server,"mail7.ntf")
 
 Dim db As notesdatabase 
 Dim ACL As NotesACL
 Dim ACLEntry As NotesACLEntry
 While Not doc Is Nothing 
  '注意：下面的doc.FirstName(0) 是你想用来作为邮件名的，当然你也可以用别的，用firstname很容易有重名的情况
  Set db = tdb.CreateFromTemplate(adb.server,"mail\"+doc.FirstName(0)+".nsf",True)
  '设置邮件库名称
  db.Title = doc.FirstName(0)
       '设置数据库ACL，可以根据实际情况调整  
  Set ACL = db.ACL
  Set ACLEntry = ACL.CreateACLEntry(doc.FullName(0),ACLLEVEL_MANAGER)
  ACLEntry.IsPerson = True
  Call ACL.Save
  '修改通讯录中的邮件路径
  Call doc.ReplaceItemValue("MailFile","mail\"+doc.FirstName(0)+".nsf")
  Call doc.Save(True,True)
  Set doc = view.GetNextDocument(doc)
 Wend 
End Sub 

err，我在帖子里面说错了，是叫oa2的服务器，我写的那段程序在oa服务器上运行是没问题的，可是在oa2服务器上运行就死活不通过，creatfromtemplate那一行报错说No resume，我很抓狂。即使我用db.server替代"oa2"也是不行的，不知道为什么，结果搞得我就卡在这里了。

是不是那个服务器没有那个模板库？还有，查下那个服务器的创建数据库的权限问题。