Sla de foto van één contactpersoon op in Outlook

Bewaar alle foto's van alle contacten in Outlook

Ga als volgt te werk om de foto van een bepaalde contactpersoon in Outlook op te slaan:

1. Open de contactmap met de opgegeven contactpersoon en verander de mapweergave door op te klikken Bekijk > Verander perspectief > Lijst. Zie screenshot:

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

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

4. Zet de cursor in het Opmerkingen box en druk op Ctrl + V toetsen om de foto in het Opmerkingen doos.

5. Klik met de rechtermuisknop op de geplakte foto in het Opmerkingen box en selecteer Opslaan als afbeelding vanuit het rechtsklikmenu. Zie screenshot:

6. In het pop-up dialoogvenster Bestand opslaan, alstublieft (1) open de bestemmingsmap waarin u de foto wilt opslaan, (2) typ een naam voor de nieuwe foto in het Bestandsnaam doos, (3) specificeer een afbeeldingstype uit de Opslaan als type vervolgkeuzelijst en tot slot (4) klik op de Bespaar knop. Zie screenshot:

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

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

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

1. Open de opgegeven contactmap waarin u alle contactfoto's opslaat en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: Batch foto's van alle contacten in Outlook 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

Note: Deze VBA slaat alle contactfoto's op als JPG-afbeeldingen. Wijzig het .jpg in de code xPath = xFileName & xName & ".jpg" naar andere extensienamen, zoals . Png, . Gif, Etc.

3. druk de F5 sleutel of de lopen knop om deze VBA uit te voeren.

4. Selecteer in het pop-upvenster Bladeren naar map de doelmap waarin u de foto's wilt opslaan en klik op de OK knop. Zie screenshot:

Nu worden alle contactfoto's in de geselecteerde contactmap opgeslagen als individuele .jpg (of een ander afbeeldingstype zoals je hebt gespecificeerd) afbeeldingen in bulk.

Verberg contactfoto's in e-mails in Outlook

Toevoegen, wijzigen of verwijderen foto / foto voor contact in Outlook