OutlookBarGroups.GroupAdd イベント (Outlook)

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

構文

式。 GroupAdd( _NewGroup_ )

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

パラメーター

注釈

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

例

この Microsoft Visual Basic for Applications (VBA) の例では、グループが作成されるたびに予定表にショートカットを追加します。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Dim WithEvents myOlGroups As Outlook.OutlookBarGroups 
Dim myOlBar As Outlook.OutlookBarPane 
 
Sub Initialize_handler() 
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar") 
 Set myOlGroups = myOlBar.Contents.Groups 
End Sub 
 
Private Sub myOlGroups_GroupAdd(ByVal NewGroup As Outlook.OutlookBarGroup) 
 Dim myFolder As Outlook.Folder 
 Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar) 
 NewGroup.Shortcuts.Add myFolder, "Calendar" 
End Sub

関連項目

OutlookBarGroups オブジェクト

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

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