Export (0) Print
Expand All
Expand Minimize

ContactItem.HasPicture Property

Office 2007
Returns True if a Contacts item has a picture associated with it. Read-only

Syntax

expression.HasPicture

expression   A variable that represents a ContactItem object.

Example

The following Microsoft Visual Basic for Applications (VBA) example prompts the user to specify the name of a contact and the file name containing a picture of the contact, and then adds the picture to the contact item. If a picture already exists for the contact item, the example prompts the user to specify if the existing picture should be overwritten by the new file.

Visual Basic for Applications
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



Community Additions

ADD
Show:
© 2014 Microsoft