Hoe contactfoto's op te slaan in Outlook?

Sla de foto van één contact op in Outlook

Sla alle foto's van alle contacten op in Outlook

Om de foto van een bepaald contact in Outlook op te slaan, doe dan het volgende:

1. Open de contactmap met het specifieke contact en wijzig de mapweergave door te klikken op Weergave > Weergave wijzigen > Lijst. Zie screenshot:

2. Dubbelklik om het specifieke contact waarvan je de foto wilt opslaan te openen.

3. Klik in het contactvenster met de rechtermuisknop op de contactfoto en selecteer Kopiëren uit het rechtermuisknopmenu. Zie screenshot:

4. Plaats de cursor in het Notities- vak en druk op Ctrl + V om de foto in het Notities-vak te plakken.

5. Klik met de rechtermuisknop op de geplakte foto in het Notities-vak en selecteer Opslaan als afbeelding uit het rechtermuisknopmenu. Zie screenshot:

6. In het pop-upvenster Opslaan als bestand, (1) open de doelmap waarin je de foto wilt opslaan, (2) typ een naam voor de nieuwe foto in het Bestandsnaam-vak, (3) specificeer een afbeeldingstype in de drop-downlijst Opslaan als type , en klik ten slotte op de Opslaan -knop. Zie screenshot:

7. Sluit het Contactvenster zonder wijzigingen op te slaan.

Tot nu toe is de foto van het specifieke contact al opgeslagen als een individuele afbeelding.

Als je de foto's van alle contacten in een contactmap in Outlook wilt opslaan, probeer dan onderstaande VBA.

1. Open de specifieke contactmap waarin je alle contactfoto's wilt opslaan en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak vervolgens onderstaande VBA-code in het nieuwe modulevenster.

VBA: Batch-opslaan van foto's van alle contacten in Outlook

Sub SaveAllContactsPhotos()
Dim xNameSpace As NameSpace
Dim xFdrContacts As MAPIFolder
Dim xItemContact As ContactItem
Dim xAttachments As Outlook.Attachments
Dim xAttach As Attachment
Dim xItems As Outlook.Items
Dim xName As String
Dim xPath, xFileName As String
Set xFdrContacts = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For I = 1 To xFdrContacts.Items.Count
Set xItemContact = xFdrContacts.Items(I)
Set xAttachments = xItemContact.Attachments
For Each xAttach In xAttachments
If xAttach.FileName = "ContactPicture.jpg" Then
xName = xItemContact.FirstName & xItemContact.LastName
xPath = xFileName & xName & ".jpg"
xAttach.SaveAsFile (xPath)
End If
Next
Next
Set xShell = Nothing
End Sub

Opmerking: Deze VBA slaat alle contactfoto's op als JPG-afbeeldingen. Om op te slaan als een ander afbeeldingstype, verander dan .jpg in de code xPath = xFileName & xName & ".jpg" naar andere extensienamen, zoals .png, .gif, etc.

3. Druk op de F5-toets of de Uitvoeren -knop om deze VBA uit te voeren.

4. Selecteer in het pop-upvenster Map bladeren de doelmap waarin je de foto's wilt opslaan en klik op de OK-knop. Zie screenshot:

Nu zijn alle contactfoto's in de geselecteerde contactmap opgeslagen als individuele .jpg (of een ander door jou gespecificeerd afbeeldingstype) afbeeldingen in bulk.

Contactfoto's in e-mails in Outlook verbergen

Foto/afbeelding toevoegen, wijzigen of verwijderen voor contact in Outlook