共用方式為

OutlookBarGroups.GroupAdd 事件 (Outlook)

  • 發行項

當新的群組已新增至 [快捷方式 ] 窗格時發生。

語法

expression。 GroupAdd( _NewGroup_ )

表達 代表 OutlookBarGroups 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
NewGroup 必要 OutlookBarGroup 已新增的 OutlookBarGroup 。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

範例

此 Microsoft Visual Basic for Applications (VBA) 范 例會在 每次建立群組時，將快捷方式新增至 Calendar。 範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。

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 支援與意見反應。