Méthode ContactItem.AddPicture (Outlook)

Ajoute une image à un élément de contact.

Syntaxe

expression. AddPicture( _Path_ )

Expression Variable qui représente un objet ContactItem .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Path	Obligatoire	String	Chaîne contenant le chemin d’accès complet et le nom de fichier de l’image à ajouter à l’élément de contact.

Remarques

Si une image est déjà attachée à l’élément de contact, cette méthode remplace l’image existante.

L’image peut être une icône ou un fichier GIF, JPEG, BMP, TIFF, WMF, EMF ou PNG. Microsoft Outlook effectue automatiquement le redimensionnement nécessaire de l’image.

Exemple

L'exemple Microsoft Visual Basic pour Applications (VBA) suivant invite l'utilisateur à spécifier le nom d'un contact et le nom de fichier contenant une image du contact, puis ajoute l'image à l'élément de contact. Si une image existe déjà pour l'élément de contact, l'exemple invite l'utilisateur à spécifier si l'image existante doit être remplacée par le nouveau fichier.

Sub AddPictureToAContact() 
 
 Dim myNms As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myContactItem As Outlook.ContactItem 
 
 Dim strName As String 
 
 Dim strPath As String 
 
 Dim strPrompt As String 
 
 
 
 Set myNms = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNms.GetDefaultFolder(olFolderContacts) 
 
 strName = InputBox("Type the name of the contact: ") 
 
 Set myContactItem = myFolder.Items(strName) 
 
 If myContactItem.HasPicture = True Then 
 
 strPrompt = MsgBox("The contact already has a picture associated with it. Do you want to overwrite the existing picture?", vbYesNo) 
 
 If strPrompt = vbNo Then 
 
 Exit Sub 
 
 End If 
 
 End If 
 
 strPath = InputBox("Type the file name for the contact: ") 
 
 myContactItem.AddPicture (strPath) 
 
 myContactItem.Save 
 
 myContactItem.Display 
 
 End Sub

Voir aussi

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