OutlookBarShortcuts.ShortcutAdd イベント (Outlook)

ウィンドウ内のグループに新しいショートカットが追加されたときに発生します。

構文

式。 ShortcutAdd( _NewShortcut_ )

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

パラメーター

注釈

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

例

This Microsoft Visual Basic for Applications (VBA) example changes the name of a Calendar shortcut when it is added to the first group in the Shortcuts pane. サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Dim WithEvents myOlSCuts As Outlook.OutlookBarShortcuts 
Dim myOlBar As Outlook.OutlookBarPane 
 
Sub Initialize_handler() 
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar") 
 Set myOlSCuts = myOlBar.Contents.Groups.Item(1).Shortcuts 
End Sub 
 
Private Sub myOlSCuts_ShortcutAdd(ByVal NewShortcut As outlook.OutlookBarShortcut) 
 Dim myNS As Outlook.NameSpace 
 
 Set myNS = Application.GetNamespace("MAPI") 
 If NewShortcut.Target.Name = "Calendar" Then 
 NewShortcut.Name = myNS.CurrentUser & "'s Schedules" 
 End If 
End Sub

関連項目

OutlookBarShortcuts オブジェクト

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

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