Compartir a través de


Evento OutlookBarGroups.GroupAdd (Outlook)

Se produce cuando se ha agregado un nuevo grupo al panel de accesos directos.

Sintaxis

expresión. GroupAdd( _NewGroup_ )

Expresión Variable que representa un objeto OutlookBarGroups .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
NewGroup Obligatorio OutlookBarGroup Objeto OutlookBarGroup que se ha agregado.

Comentarios

Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

Ejemplo:

En este ejemplo de Microsoft Visual Basic para Aplicaciones (VBA), se agrega un acceso directo al Calendario cuando se crea un grupo. El código se debe colocar en un módulo de clase, y se debe llamar a la rutina Initialize_handler antes de que Microsoft Outlook pueda llamar al procedimiento de evento.

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

Consulte también

Objeto OutlookBarGroups

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.