Notes 8 在拷贝数据库的时候，默认是进行本地加密的，也就是说你用其他无关的 ID 是打不开的。我们经常会发模板给其他同事，每次都要手动关闭本地加密，很麻烦。可以在以下位置修改这个设定：

文件菜单-首选项-用户首选项-复制-本地加密

从文件系统拷贝（非安装）的 Domino 8，启动时控制台报如下错误：

An error occurred during license use management initialization.
Ensure that you are running Domino with a valid license file.

IBM 技术支持网站上说要重新安装 Domino 才能解决， 后来发现其实是缺少了注册表信息。将如下部分保存成 dom.reg 文件，然后双击导入就行（路径记得改一下）

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINESOFTWARELotusDomino]
"Path"="D:\Domino Server\Domino_CHNGSC"
"DataPath"="D:\Domino Server\Domino_CHNGSC\data"
"Description"="Lotus Domino"
"Name"="nserver.exe"
"Version"=dword:00000008
"Partitions"="1,"
"SetupType"="EnterpriseServer"
"Express"=""

先看如下代码：

    ‘some code ……
‘Set my doc with the return value from the function…
Set recipientDoc = getDocInNAB(“search string”)

If Not recipientDoc Is Nothing Then
‘In debug I end up here
Else
‘When I run it I end up here….
Print “ERROR”
End If
‘some code ……

Function getDocInNAB(y As String) As NotesDocument
Dim nabs As Variant
Dim v As NotesView
Dim match As NotesDocument
Dim i As NotesItem
nabs = s.AddressBooks

Forall x In nabs
‘Get handle on Directory to search
Call x.Open(x.Server, x.FilePath)
Set v = x.GetView(“($Users)”)
Set match = v.GetDocumentByKey(y,True)

If Not match Is Nothing Then
Print “Found ————> ” & y
Set getDocInNAB = match
Else
Set getDocInNAB = Nothing
End If
End Forall
End Function

函数 getDocInNAB 实现了一个功能：通过参数 y 来查找个人文档，然后将查找结果返回。初看上去好像没什么问题，实际上这个函数的返回值一直是 Nothing。

问题的原因是，NAB 数据库对象是在函数内定义的，当文档作为返回值传递给调用者时，其 Parent 数据库对象已经销毁，所以这个文档也就是 Nothing 了。

解决的办法：将数据库一起作为参数传递过去或者定义为全局变量。