VB通过OLE访问Lotus NotesUIWorkspace

OLE作为Windows的一个特征，通过把应用程序的功能作为对象暴露给其他应用程序，这些对象拥有属性(数据)和方法(函数)，应用程序可以通过定义、调用OLE中的对象去执行相应的任务。Domino既可以作为一个OLE提供者被外部程序调用，也可以通过OLE去控制其他OLE对象。例如：Visual Basic可以利用OLE功能，通过CreatObject获得Notes.NotesUIWorkspace 和 Notes.NotesSession对象来访问Notes类。

 

Sample:
//前提：运行Notes Client, 选定一些文档
//声明Notes变量为Object类型。
Dim ws As Object
Dim uiview As Object
Dim uidocs As Object

Set ws = CreateObject("Notes.NotesUIWorkspace")
Set uiview = ws.currentview
Set uidocs = uiview.documents
//显示选定的文档数量
MsgBox (Str(uidocs.Count) + " document selected")