Propriété ContactItem.HasPicture (Outlook)
Renvoie une valeur booléenne qui a la valeur True si une image est associée à un élément Contacts . Lecture seule
Syntaxe
expression. HasPicture
Expression Variable qui représente un objet ContactItem .
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
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.