Guarde la foto de un contacto en Outlook

Guarde todas las fotos de todos los contactos en Outlook

Para guardar la foto de un determinado contacto en Outlook, haga lo siguiente:

1. Abra la carpeta de contactos que contiene el contacto especificado y cambie la vista de la carpeta haciendo clic en Ver > Cambio Vista > Lista. Ver captura de pantalla:

2. Haga doble clic para abrir el contacto especificado cuya foto guardará.

3. En la ventana de contacto, haga clic derecho en la foto del contacto y seleccione Copiar desde el menú contextual. Ver captura de pantalla:

4. Coloque el cursor en el Notas caja y prensa Ctrl + V teclas para pegar la foto en el Notas encajonar.

5. Haga clic derecho en la foto pegada en el Notas cuadro y seleccione Guardar como imagen desde el menú contextual. Ver captura de pantalla:

6. En el cuadro de diálogo emergente Guardar archivo, por favor (1) abre la carpeta de destino donde guardarás la foto, (2) escriba un nombre para la nueva foto en el Nombre de archivo caja, (3) especificar un tipo de imagen de la Guardar como tipo lista desplegable, y finalmente (4) haga clic en el Guardar botón. Ver captura de pantalla:

7. Cierre la ventana de Contacto sin guardar los cambios.

Hasta ahora, la foto del contacto especificado ya se ha guardado como una imagen individual.

Si necesita guardar las fotos de todos los contactos en una carpeta de contactos en Outlook, intente debajo de VBA.

1. Abra la carpeta de contactos especificada donde guardará todas las fotos de los contactos y presione otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy luego pegue debajo del código VBA en la nueva ventana del módulo.

VBA: guardar por lotes fotos de todos los contactos en 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: Este VBA guardará todas las fotos de contacto como imágenes JPG. Para guardar como otro tipo de imagen, cambie el .jpg en el código xPath = xFileName & xName & ".jpg" a otros nombres de extensión, como .png, .gif, etc.

3. presione el F5 clave o la Ejecutar botón para ejecutar este VBA.

4. En el cuadro de diálogo emergente Buscar carpeta, seleccione la carpeta de destino en la que guardará las fotos y haga clic en OK botón. Ver captura de pantalla:

Ahora, todas las fotos de contactos de la carpeta de contactos seleccionada se guardan como imágenes .jpg individuales (u otro tipo de imagen según lo especificado) a granel.

Ocultar fotos de contactos en correos electrónicos en Outlook

Agregar, cambiar o eliminar una imagen / foto para el contacto en Outlook