Как из Outlook открыть Internet Explorer
Пятница, 28 Апреля 2006 г. 10:45

Чтобы вывести некий HTML из Outlook (VB Script для форм), годится код:

Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about :blank"
HTML="Hello World"
while objExplorer.ReadyState<4
'HERE MAY BE VERY NICE TO INSERT DO EVENTS
wend
objExplorer.Document.Body.InnerHTML=HTML
objExplorer.Visible = 1

В VBA в отличии от VB Script можно не дожидаться изменения ReadyState, т.е. обойтись без While или включить в цикл while вызов DoEvents, чтобы приложение не загружало процессор. В VB Script, если не дождаться ReadyState, вылетит ошибка.

Ну а если просто нужно перейти на нужную страничку:

Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://www.liveinternet.ru/users/fixin"