Evento OutlookBarGroups.GroupAdd (Outlook)

Ocorre quando um novo grupo foi adicionado ao painel atalhos.

Sintaxe

expression. GroupAdd( _NewGroup_ )

Expressão Uma variável que representa um objeto OutlookBarGroups .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Newgroup	Obrigatório	OutlookBarGroup	O OutlookBarGroup que foi adicionado.

Comentários

Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).

Exemplo

Esse exemplo do Microsoft Visual Basic for Applications (VBA) adiciona um atalho ao Calendário sempre que um grupo é criado. O código de exemplo deve ser colocado em um módulo de classe, e a rotina Initialize_handler deve ser chamada para que o Microsoft Outlook chame o procedimento 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

Confira também

Objeto OutlookBarGroups

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.