通过LotusScrpit调用IE COM的方法

通过LotusScrpit调用IE COM的方法,实现由LotusScript打开IE新窗口并显示相应的文档.

'Lotus Script代码如下

Sub Initialize
'在NOTES 中打开IE
 On Error Goto MsgError
 Dim warkDoc As New NotesUIWorkspace
 Dim uidoc As NotesuiDocument
 Dim Doc As NotesDocument
 
 Set uidoc=warkDoc.CurrentDocument
 Set doc=uidoc.Document
 Set IEObject=CreateObject("InternetExplorer.Application")
 url="http://127.0.0.1/name.nsf?login"
 IEObject.Navigate url '指定要打开的URL地址
 IEObject.menuBar=no   '不显示IE窗口的菜单面板
 Exit Sub
MsgError:
 Msgbox "Error$" & Error$ & "Oline:" & Cstr(Erl)
End Sub