通过LotusScrpit调用IE COM的方法

Published by admin on 08月 29, 2010

通过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

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/ihri6988/archive/2009/03/13/3982476.aspx