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
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.