Come salvare le foto dei contatti in Outlook?

Salva la foto di un contatto in Outlook

Salva tutte le foto di tutti i contatti in Outlook

Per salvare la foto di un determinato contatto in Outlook, procedi nel seguente modo:

1. Apri la cartella dei contatti contenente il contatto specifico e cambia la visualizzazione della cartella facendo clic su Visualizza > Cambia visualizzazione > Elenco. Vedi screenshot:

2. Fai doppio clic per aprire il contatto specifico la cui foto desideri salvare.

3. Nella finestra del contatto, fai clic con il tasto destro sulla foto del contatto e seleziona Copia dal menu contestuale. Vedi screenshot:

4. Posiziona il cursore nella casella Note e premi i tasti Ctrl + V per incollare la foto nella casella Note.

5. Fai clic con il tasto destro sulla foto incollata nella casella Note e seleziona Salva come immagine dal menu contestuale. Vedi screenshot:

6. Nella finestra di dialogo Salva file che appare, (1) apri la cartella di destinazione in cui salverai la foto, (2) digita un nome per la nuova foto nella casella Nome file, (3) specifica un tipo di immagine dall'elenco a discesa Salva come tipo , e infine (4) fai clic sul pulsante Salva . Vedi screenshot:

7. Chiudi la finestra Contatto senza salvare le modifiche.

A questo punto, la foto del contatto specificato è stata salvata come immagine separata.

Se hai bisogno di salvare le foto di tutti i contatti in una cartella dei contatti in Outlook, prova il seguente codice VBA.

1. Apri la cartella dei contatti specificata in cui salverai tutte le foto dei contatti e premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice VBA nella nuova finestra del modulo.

VBA: Salva in batch le foto di tutti i contatti 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

Nota: Questo VBA salverà tutte le foto dei contatti come immagini JPG. Per salvarle in un altro formato di immagine, cambia .jpg nel codice xPath = xFileName & xName & ".jpg" con altre estensioni, come .png, .gif, ecc.

3. Premi il tasto F5 o il pulsante Esegui per eseguire questo VBA.

4. Nella finestra di dialogo Sfoglia cartella che appare, seleziona la cartella di destinazione in cui salverai le foto e fai clic sul pulsante OK. Vedi screenshot:

Ora tutte le foto dei contatti nella cartella dei contatti selezionata sono state salvate come immagini .jpg (o un altro tipo di immagine specificato) in blocco.

Nascondere le foto dei contatti nelle email in Outlook

Aggiungere, modificare o rimuovere immagini/foto per i contatti in Outlook