Salvați fotografia unui contact în Outlook

Salvați toate fotografiile tuturor contactelor din Outlook

Pentru a salva fotografia unui anumit contact în Outlook, procedați după cum urmează:

1. Deschideți folderul de contact care conține contactul specificat și modificați vizualizarea folderului făcând clic pe Vizualizare > Schimbă privirea > Listă. Vedeți captura de ecran:

2. Faceți dublu clic pentru a deschide contactul specificat a cărui fotografie o veți salva.

3. În fereastra de contact, faceți clic dreapta pe fotografia de contact și selectați Copiați din meniul cu clic dreapta. Vedeți captura de ecran:

4. Puneți cursorul în notițe și apăsați Ctrl + V tastele pentru a lipi fotografia în notițe cutie.

5. Faceți clic dreapta pe fotografia lipită din notițe și selectați Salvați ca imagine din meniul cu clic dreapta. Vedeți captura de ecran:

6. În fereastra pop-up Salvare fișier, vă rugăm (1) deschideți folderul de destinație în care veți salva fotografia, (2) introduceți un nume pentru noua fotografie în Nume de fișier cutie, (3) specificați un tip de imagine din Salvați ca tip lista derulantă și, în cele din urmă (4) apasă pe Economisiți buton. Vedeți captura de ecran:

7. Închideți fereastra Contact fără a salva modificările.

Până în prezent, fotografia contactului specificat a fost deja salvată ca imagine individuală.

Dacă trebuie să salvați fotografiile tuturor contactelor într-un folder de contacte din Outlook, încercați mai jos VBA.

1. Deschideți folderul de contact specificat în care veți salva toate fotografiile de contact și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module, și apoi lipiți mai jos codul VBA în fereastra noului modul.

VBA: Salvați în lot fotografiile tuturor contactelor din 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

notițe: Acest VBA va salva toate fotografiile de contact ca imagini JPG. Pentru a salva ca alt tip de imagine, vă rugăm să modificați .jpg în cod xPath = xFileName & xName & ".jpg" la alte nume de extensii, cum ar fi .png, .gif, Etc

3. apasă pe F5 tasta sau Alerga pentru a rula acest VBA.

4. În fereastra de dialog Răsfoire pentru folder, selectați folderul de destinație în care veți salva fotografiile și faceți clic pe OK buton. Vedeți captura de ecran:

Acum, toate fotografiile de contact din folderul de contact selectat sunt salvate ca imagini .jpg individuale (sau un alt tip de imagine așa cum ați specificat) în bloc.

Ascundeți fotografiile de contact în e-mailurile din Outlook

Adăugați, modificați sau eliminați fotografia / fotografia pentru contact în Outlook