VBA中调用Notes

正常情况下，我们都是在Notes中调用office的组件来完成相关功能。这次在一个论坛里看到还有个需求是要在Word中直接调用Notes中的相关操作完成。觉得蛮好奇，回去试了一下，还真的可以。示例如下:

Sub test()

'

' test Macro

' 成功调用

' 宏在 2009-5-25 由  创建

'

Dim ss As Variant

Dim db As Variant

Dim doc As Variant

Dim itemRTF As Variant

 

 

Set ss = CreateObject("Lotus.NotesSession")     --产生物件

If Not ss Is Nothing Then

Call ss.Initialize("password")      ---ID的密码

Set db = ss.GetDatabase("TEST2/lab", "ap/test/2070045/test/Test.nsf")

                                                 ---要连的服务器和具体资料库

If Not db Is Nothing Then

Set doc = db.Createdocument()

Call doc.Replaceitemvalue("Form", "11")

Call doc.Replaceitemvalue("BBB", "abc")

Call doc.Replaceitemvalue("ccc", 3)

Set itemRTF = doc.Createrichtextitem("Content")

Call itemRTF.Embedobject(1454, "", "C:/11.xls")

Call doc.Replaceitemvalue("SaveOptions", "1")

Call doc.Save(True, False)

Set doc = Nothing

Else

MsgBox "找不到数据库"

End If

End If

Set ss = Nothing

 

End Sub