OutlookBarShortcuts.BeforeShortcutAdd イベント (Outlook)

ユーザー操作またはプログラムのコードによって [ ショートカット] ウィンドウ内のグループに新しいショートカットが追加される前に発生します。

構文

式。 BeforeShortcutAdd( _Cancel_ )

式OutlookBarShortcuts オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Cancel	必須	Boolean	False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、ショートカットはグループに追加されません。

注釈

このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

例

次の Microsoft Visual Basic for Applications (VBA) の例では、ユーザーが [ ショートカット] ウィンドウ内の最初のグループにショートカットを追加できなくなります。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Dim WithEvents myOlShortcuts As Outlook.OutlookBarShortcuts 
Dim myOlBar As Outlook.OutlookBarPane 
 
Sub Initialize_handler() 
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar") 
 Set myOlShortcuts = myOlBar.Contents.Groups.Item(1).Shortcuts 
End Sub 
 
Private Sub myOlShortcuts_BeforeShortcutAdd(Cancel As Boolean) 
 MsgBox "You are not allowed to add a shortcut to this group." 
 Cancel = True 
End Sub

関連項目

OutlookBarShortcuts オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。