OutlookBarGroups.GroupAdd-Ereignis (Outlook)
Tritt auf, wenn eine neue Gruppe im Verknüpfungsbereich hinzugefügt wurde.
Syntax
Ausdruck.
GroupAdd( _NewGroup_ )
Ausdruck Eine Variable, die ein OutlookBarGroups-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| NewGroup | Erforderlich | OutlookBarGroup | Die OutlookBarGroup, die hinzugefügt wurde. |
Hinweise
Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Beispiel
In diesem Beispiel für Microsoft Visual Basic für Applikationen (VBA) wird beim Erstellen einer Gruppe eine Verknüpfung zum Kalender hinzugefügt. Der Beispielcode muss sich in einem Klassenmodul befinden, und die Initialize_handler-Routine muss aufgerufen werden, bevor Microsoft Outlook die Ereignisprozedur aufrufen kann.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.