Méthode OutlookBarShortcut.SetIcon (Outlook)

Article
04/07/2023

Définit l’icône du raccourci spécifié dans le volet Raccourcis.

Syntaxe

expression. SetIcon( _Icon_ )

Expression Variable qui représente un objet OutlookBarShortcut .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Icon	Requis	Variant	Chemin d'accès de l'icône.

Exemple

L’exemple Microsoft Visual Basic pour Applications (VBA) suivant crée un groupe appelé MicrosoftSites et ajoute un raccourci à la page web Microsoft Network. Il définit ensuite l'icône du raccourci à l'image de l'icône MSN.ico située sur l'ordinateur de l'utilisateur. Cet exemple considère que cette icône existe à l'emplacement spécifié.

 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

Voir aussi

OutlookBarShortcut, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via