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, procedere come segue:

1. Apri la cartella Contatti che contiene il contatto specificato e modifica la visualizzazione della cartella facendo clic su Visualizza > Cambia visualizzazione > Elenco. Vedi lo screenshot:

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

3. Nella finestra del contatto, fai clic con il pulsante destro del mouse sulla foto del contatto e seleziona Copia dal menu contestuale. Guarda lo screenshot:

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

5. Fai clic con il pulsante destro del mouse sulla foto incollata nella casella delle Note e seleziona Salva come immagine dal menu contestuale. Guarda lo screenshot:

6. Nella finestra di dialogo Salva file visualizzata, (1) apri la cartella di destinazione in cui desideri salvare la foto, (2) digita un nome per la nuova foto nella casella Nome file, (3) specifica un tipo di immagine dall’elenco a discesa Specifica formato di salvataggio e infine (4) fai clic sul pulsante Salva. Vedere lo screenshot:

7. Chiudi la finestra Contatto senza salvare le modifiche.

Finora, la foto del contatto specificato è già stata salvata come immagine separata.

Se desideri salvare le foto di tutti i contatti presenti in una cartella di Outlook, prova la seguente macro VBA.

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

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

VBA: Salva in blocco 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: questa macro VBA salva tutte le foto dei contatti come immagini JPG. Per salvarle in un altro formato, modifica l’estensione .jpg nel codice «xPath = xFileName & xName & ".jpg"» con altre estensioni, ad esempio .png, .gif, ecc.

3. Premere il tasto F5 o il pulsante Esegui per eseguire questa macro VBA.

4. Nella finestra di dialogo Sfoglia cartelle visualizzata, seleziona la cartella di destinazione in cui desideri salvare le foto e fai clic sul pulsante OK. Vedere lo screenshot:

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

Nascondi le foto dei contatti nelle email in Outlook

Aggiungere, modificare o rimuovere l’immagine/la foto di un contatto in Outlook