Outlook VBA教程:GroupAdd事件

在将新组添加到Outlook 面板时发生。该事件在 VBScript 中不可用。

Sub object_GroupAdd(ByVal NewGroup As OutlookBarGroup)

object  该表达式的值为OutlookBarGroups对象。

NewGroup  必选。已添加的OutlookBarGroup

VBA示例

本示例在创建组时添加该组的快捷方式。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


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

上页:Outlook VBA教程:Forward事件 下页:Outlook VBA教程:ItemAdd事件

Outlook VBA教程:GroupAdd事件:相关链接

Outlook VBA教程:ItemAdd事件 Outlook VBA教程:ItemChange事件
Outlook VBA教程:ItemRemove事件 Outlook VBA教程:ItemSend事件
Outlook VBA教程:MapiLogonComplete事件 Outlook VBA教程:NewExplorer事件
Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
Outlook VBA教程:OnError事件 Outlook VBA教程:Open事件
Outlook VBA教程:OptionsPagesAdd事件 Outlook VBA教程:Progress事件
Outlook VBA教程:PropertyChange事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号