Метод OutlookBarShortcut.SetIcon (Outlook)

Статья
04/07/2023

Задает значок для указанного ярлыка на панели Ярлыки .

Синтаксис

выражение. SetIcon( _Icon_ )

Выражение Переменная, представляющая объект OutlookBarShortcut .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Icon	Обязательный	Variant	Путь к значку.

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) создается группа с именем MicrosoftSites и добавляется ярлык на веб-страницу Microsoft Network. Затем он задает значок ярлыка для изображения значка MSN.ico, расположенного на компьютере пользователя. В примере предполагается, что этот значок существует в указанном расположении.

 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

См. также

Объект OutlookBarShortcut

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через