Private Sub Btn_Click()
'在此之前,
'1.请先安装Lotus Notes/Domino
'2.安装VB
'3.通过"工程"-->"引用",选中"Lotus Domino Objects"
On Error Resume Next
Dim s as New NotesSession
Dim db as New NotesDatabase
'初始化用户信息,password为Notes最后一次退出时用户的密码.
Call s.Initialize(password)
'下面的方法是初始化给定的用户,但当给定用户和Notes最后一次
'退出时使用用户不同时会出错,一直调试不成功,-_-!!
'Call s.InitializeUsingNotesUserName(username,password)
'判断用户信息是否成功初始化
If IsEmpty(s.CommonUserName) Then
MsgBox "用户初始化失败,请检查密码是否正确."
Exit Sub
End If
Set db = s.GetDatabase(Server,Database)
If db.IsOpen Then
MsgBox "登陆并读取数据库" + db.Title + "成功!"
Else
MsgBox "登陆并读取数据库Database失败,请检查网络!"
End If
End Sub