Hoe slaat u contactfoto’s op in Outlook?

Sla de foto van één contact op in Outlook

Sla alle foto’s van alle contacten op in Outlook

Voer de volgende stappen uit om de foto van een bepaald contact op te slaan in Outlook:

1. Open de contactmap met het betreffende contact en wijzig de weergave door op Weergave > Weergave wijzigen > Lijst te klikken. Zie schermafbeelding:

2. Dubbelklik op het contact waarvan u de foto wilt opslaan om het te openen.

3. Klik met de rechtermuisknop op de contactfoto in het contactvenster en selecteer Kopiëren in het contextmenu. Zie schermafbeelding:

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 in het contextmenu. Zie schermafbeelding:

6. Geef in het venster Bestand opslaan dat verschijnt (1) de doelmap op waarin u de foto wilt opslaan, (2) typ een naam voor de nieuwe foto in het Bestandsnaam-vak, (3) kies een afbeeldingstype uit de Opmaak opgeven voor opslaan-keuzelijst en klik ten slotte (4) op de Opslaan-knop. Zie schermafbeelding:

7. Sluit het contactvenster zonder uw wijzigingen op te slaan.

Tot nu toe is de foto van het opgegeven contact al opgeslagen als een afzonderlijk beeldbestand.

Als u de foto’s van alle contacten in een contactmap in Outlook wilt opslaan, gebruik dan de onderstaande VBA-code.

1. Open de contactmap waarvan u alle contactfoto’s wilt opslaan en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

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

VBA: Foto’s van alle contacten in Outlook batchgewijs opslaan

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-code slaat alle contactfoto’s op als JPG-afbeeldingen. Wilt u ze opslaan in een ander afbeeldingsformaat? Pas dan de .jpg in de code xPath = xFileName & xName & ".jpg" aan naar een andere extensie, zoals .png, .gif, enz.

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

4. Selecteer in het venster Map zoeken dat verschijnt de doelmap waarin u de foto’s wilt opslaan en klik op de OK-knop. Zie schermafbeelding:

Nu zijn alle contactfoto’s in de geselecteerde contactmap bulksgewijs opgeslagen als afzonderlijke .jpg-bestanden (of een ander Afbeeldingstype zoals u hebt opgegeven).

Contactfoto’s verbergen in e-mails in Outlook

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