Método OutlookBarShortcut.SetIcon (Outlook)

Define o ícone do atalho especificado do painel Atalhos.

Sintaxe

expression. SetIcon( _Icon_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Icon Obrigatório Variant O caminho do ícone.

Exemplo

O exemplo de VBA (Microsoft Visual Basic for Applications) a seguir cria um grupo chamado MicrosoftSites e adiciona um atalho à página da Web da Microsoft Network. Em seguida, define o ícone do atalho como a imagem do ícone MSN.ico localizada no computador do usuário. O exemplo supõe que esse ícone existe no local especificado.

 Sub CreateMSNShortcutWithIcon() 
 
 Dim exp As Outlook.Explorer 
 
 Dim pans As Outlook.Panes 
 
 Dim bpan As Outlook.OutlookBarPane 
 
 Dim bgrps As Outlook.OutlookBarGroups 
 
 Dim bgrp As Outlook.OutlookBarGroup 
 
 Dim bscs As Outlook.OutlookBarShortcuts 
 
 Dim bsc As Outlook.OutlookBarShortcut 
 
 Dim bsc2 As Outlook.OutlookBarShortcut 
 
 
 
 Set exp = Application.ActiveExplorer 
 
 Set pans = exp.Panes 
 
 Set bpan = pans.Item("OutlookBar") 
 
 Set bgrps = bpan.Contents.Groups 
 
 Set bgrp = bgrps.Add("MicrosoftSites") 
 
 Set bscs = bgrp.Shortcuts 
 
 Set bsc = bscs.Add("https://www.msn.com", "MSN Home Page") 
 
 bsc.SetIcon "C:\MSN.ico" 
 
End Sub

Confira também

Objeto OutlookBarShortcut

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.