利用VB登陆并操作Notes

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