expression.SetIcon(Icon)
expression Required. An expression that returns an OutlookBarShortcut object.
Icon Required Variant. The path of the icon.
Example
The following Microsoft Visual Basic for Applications (VBA) example creates a group called MicrosoftSites and adds a shortcut to the Microsoft Network Web page. Then it sets the icon of the shortcut to the icon image MSN.ico located on the user's computer. The example assumes that this icon exists in the specified location.
Sub CreateMSNShortcutWithIcon()
Dim outApp As New Outlook.Application
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 = outApp.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("http://www.msn.com", "MSN Home Page")
bsc.SetIcon "C:\MSN.ico"
End Sub