Function Item_Open()
If InputBox("パスワードを入力してください。","PW確認")
<> "sun" then
Item_Open = False
Exit Function End if
End Function |
★アイテムを開いた時に発生するイベント
★ユーザーが入力した値が「sun」ではない場合は
★処理を中止する(アイテムは開かない)
★アイテムオープン処理は終了
|
※Item_Openイベントでは戻り値をFalseに設定すると閉じる操作を中止することができます。(戻り値を格納するにはFunctionプロシージャを使う必要があります。)
※スクリプトが動作する環境でのみ有効なのでセキュリティ面では完璧ではありません。(ポリシーでOutlookのスクリプトを強制的に有効にし、パブリックフォルダ上のフォルダアクセス許可を考慮した場合などではいいかもしれません。)