Événement OutlookBarGroups.GroupAdd (Outlook)
Se produit lorsqu’un nouveau groupe a été ajouté au volet Raccourcis .
Syntaxe
expression. GroupAdd( _NewGroup_ )
Expression Variable qui représente un objet OutlookBarGroups .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| NewGroup | Requis | OutlookBarGroup | OutlookBarGroup qui a été ajouté. |
Remarques
Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).
Exemple
Cet exemple Microsoft Visual Basic pour Applications (VBA) ajoute un raccourci au calendrier chaque fois qu’un groupe est créé. L’exemple de code doit être placé dans un module de classe et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.