¿Cómo guardar las fotos de los contactos en Outlook?

Guarde la foto de un contacto en Outlook

Guarde todas las fotos de todos los contactos en Outlook

Para guardar la foto de un contacto determinado en Outlook, siga estos pasos:

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

2. Haga doble clic en el contacto cuya foto desea guardar para abrirlo.

3. En la ventana del contacto, haz clic con el botón derecho en la foto del contacto y selecciona Copiar en el menú contextual. Consulta la captura de pantalla:

4. Coloque el cursor en el cuadro Notas y pulse las teclas Ctrl + V para pegar la foto en el cuadro Notas.

5. Haga clic con el botón derecho en la foto pegada en el cuadro Notas y seleccione Guardar como imagen en el menú contextual. Vea la captura de pantalla:

6. En el cuadro de diálogo Guardar archivo que aparece, (1) abra la carpeta de destino en la que guardará la foto, (2) escriba un nombre para la nueva foto en el cuadro Nombre de archivo, (3) especifique un tipo de imagen en la lista desplegable Especificar formato de guardado y, por último, (4) haga clic en el botón Guardar. Vea la captura de pantalla:

7. Cierre la ventana del 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 de una carpeta de contactos en Outlook, pruebe la siguiente macro de VBA.

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

2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en la nueva ventana del módulo.

VBA: Guardar en lote las 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

Nota: Esta macro de VBA guardará todas las fotos de los contactos como imágenes JPG. Para guardarlas en otro formato de imagen, cambia la extensión .jpg en la línea de código xPath = xFileName & xName & «.jpg» por otra extensión, como .png, .gif, etc.

3. Pulse la tecla F5 o el botón Ejecutar para ejecutar esta macro VBA.

4. En el cuadro de diálogo Examinar para buscar carpeta que aparece, seleccione la carpeta de destino en la que guardará las fotos y haga clic en el botón Aceptar. Vea la captura de pantalla:

Ahora, todas las fotos de los contactos de la carpeta seleccionada se han guardado masivamente como imágenes individuales en formato .jpg (u otro tipo de imagen según hayas especificado).

Ocultar las fotos de los contactos en los correos electrónicos en Outlook

Agregar, cambiar o eliminar la imagen/foto de un contacto en Outlook