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, eseguire le operazioni seguenti:

1. Aprire la cartella dei contatti contenente il contatto specificato e modificare la visualizzazione della cartella facendo clic su Visualizza > Cambia punto di vista > Lista. Vedi screenshot:

2. Fare doppio clic per aprire il contatto specificato di cui si salverà la foto.

3. Nella finestra del contatto, fare clic con il pulsante destro del mouse sulla foto del contatto e selezionare Copia dal menu di scelta rapida. Vedi screenshot:

4. Posiziona il cursore nel file Note casella e premere Ctrl + V tasti per incollare la foto nel file Note scatola.

5. Fare clic con il pulsante destro del mouse sulla foto incollata nel file Note casella e selezionare Salva come immagine dal menu di scelta rapida. Vedi screenshot:

6. Nella finestra di dialogo Salva file che si apre, per favore (1) apri la cartella di destinazione in cui salverai la foto, (2) digita un nome per la nuova foto nel file Nome del file scatola, (3) specificare un tipo di immagine dal file Salva come tipo elenco a discesa e infine (4) fare clic sul Risparmi pulsante. Vedi screenshot:

7. Chiudi la finestra Contatto senza salvare le modifiche.

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

Se è necessario salvare le foto di tutti i contatti in una cartella dei contatti in Outlook, provare sotto VBA.

1. Apri la cartella dei contatti specificata dove salverai tutte le foto dei contatti e premi altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduli, quindi incolla sotto il codice VBA nella finestra del nuovo 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

Note:: Questo VBA salverà tutte le foto dei contatti come immagini JPG. Per salvare come altro tipo di immagine, modificare il file . Jpg nel codice xPath = xFileName & xName & ".jpg" ad altri nomi di estensione, come .png, . Gif, ecc.

3. premi il F5 chiave o il Correre pulsante per eseguire questo VBA.

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

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

Nascondi le foto dei contatti nelle e-mail in Outlook

Aggiungi, modifica o rimuovi immagine / foto per il contatto in Outlook