Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆特定のユーザーのみ開けるようにする

　

オブジェクト

イベント（アイテムを開くと処理が発生）

Item

Open

記述法： Item_Open()

★アイテムを開いた際に発生するイベントです。（既存アイテム・新規アイテムどちらでも発生します。）

★VBSではこの関数の戻り値をFalseに設定すると開く操作を中止することができます。

　

　

記述例：

記号

「yamada taro」以外の場合はアイテムが開かないようにする

Function Item_Open()
Set MyNameSpace = Application.GetNameSpace("mapi")
IF MyNameSpace.CurrentUser <> "yamada taro" then
Item_Open = False
End if
End Function

★アイテムを開いた際に発生するイベント

★Outlookルートオブジェクトを 取得(NameSpace object)

★現在のOutlookユーザーがyamada taroでないなら

★処理を中止する（＝アイテムは開かない）

　

　

※Item_Openイベントでは戻り値をFalseに設定すると閉じる操作を中止することができます。（戻り値を格納するにはFunctionプロシージャを使う必要があります。）

※スクリプトが動作する環境でのみ有効なのでセキュリティ面では完璧ではありません。（ポリシーでOutlookのスクリプトを強制的に有効にし、パブリックフォルダ上のフォルダアクセス許可を考慮した場合などではいいかもしれません。）

　

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ プログラミングサンプル編