OutlookBarGroups.GroupAdd 事件 (Outlook)

新组添加到 快捷方式窗格时发生。

语法

expressionGroupAdd( _NewGroup_ )

表达 一个代表 OutlookBarGroups 对象的变量。

参数

名称 必需/可选 数据类型 说明
NewGroup 必需 OutlookBarGroup 添加了 OutlookBarGroup

备注

该事件在 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。