OutlookBarShortcuts.BeforeShortcutRemove イベント (Outlook)

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

構文

expression. BeforeShortcutRemove( _Shortcut_ , _Cancel_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
Shortcut	必須	OutlookBarShortcut	削除される OutlookBarShortcut 。
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_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean) 
 MsgBox "You are not allowed to remove a shortcut from this group." 
 Cancel = True 
End Sub

関連項目

OutlookBarShortcuts オブジェクト

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

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