Takenoff Labs » データベース起動時にブラウザを起動する

[Notes/Domino] データベース起動時にブラウザを起動する

※このエントリは旧コンテンツから移行し加筆訂正したものです。（初出：2003/12/7）

データベースアイコンをダブルクリックしたときに、ブラウザ（IE）を別ウィンドウで起動させ、データベースは開かない、という処理を行いたい場合、以下のようにします。（Database Script の Postopen に記述してください。ツールバーを非表示にしたり、サイズを変更したい場合は、コメント部分を参考にしてください。）

Sub Postopen(Source As Notesuidatabase)
	Dim objIE As Variant
	Set objIE = CreateObject("InternetExplorer.Application")
	'objIE.Toolbar = False
	'objIE.Statusbar = False
	'objIE.Width = 500
	'objIE.Height = 400
	objIE.Visible = True
	Call objIE.Navigate2("表示したいURL")
	Call Source.Close()
End Sub

Notes の DB を Web に移行したけど、以前のDBアイコンから開いたときは Web のほうを開かせたい、という場合に便利かもしれません。最近、Notes離れが進んでいるから、需要があるかも？（TT