Как из Outlook открыть Internet Explorer
28-04-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"
вверх^
к полной версии
понравилось!
в evernote