Export (save) Outlook Contact photos

Use this VBA to save contact photos to a folder on your hard drive.

This is an example of a contact photo:

To import photos into contacts, see Batch Import Photos into Outlook Contacts

Note: make sure you change the folder path in the VBA!

Sub SaveContactPhoto()

Dim itemContact As ContactItem
Dim fdrContacts As MAPIFolder
Dim colAttachments As Outlook.Items
Dim colItems As Outlook.Items

Dim fname As String

Set fdrContacts = Session.GetDefaultFolder(olFolderContacts)

On Error Resume Next

For itemCounter = 1 To fdrContacts.Items.Count

    Set itemContact = fdrContacts.Items(itemCounter)
    Set collAttachments = itemContact.Attachments

    For Each attach In collAttachments
      If attach.FileName = "ContactPicture.jpg" Then
        fname = (itemContact.FirstName & itemContact.LastName & ".jpg")
        attach.SaveAsFile ("C:\Contact Photos\" & fname)
      End If
    Next

Next

End Sub

Related Posts:

1. 

   Batch Import Photos into Outlook Contacts
2. 

   Create a journal entry for Word documents in Outlook 2013
3. 

   Import Images into the Active Directory
4. 

   Stop Showing Contact Pictures in Messages