¿Cómo guardar fotos de contactos en Outlook?

Guardar la foto de un contacto en Outlook

Guardar todas las fotos de todos los contactos en Outlook

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

1. Abre la carpeta de contactos que contiene el contacto especificado y cambia la vista de la carpeta haciendo clic en Ver > Cambiar vista > Lista. Ver captura de pantalla:

2. Haz doble clic para abrir el contacto especificado cuya foto deseas guardar.

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

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

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

6. En el cuadro de diálogo Guardar archivo que aparece, (1) abre la carpeta de destino donde guardarás la foto, (2) escribe un nombre para la nueva foto en el cuadro Nombre de archivo, (3) especifica un tipo de imagen desde la lista desplegable Guardar como tipo , y finalmente (4) haz clic en el botón Guardar . Ver captura de pantalla:

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

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

Si necesitas guardar las fotos de todos los contactos en una carpeta de contactos en Outlook, prueba el siguiente código VBA.

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

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana de módulo.

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

3. Presiona la tecla F5 o el botón Ejecutar para ejecutar este VBA.

4. En el cuadro de diálogo Examinar carpeta que aparece, selecciona la carpeta de destino donde guardarás las fotos y haz clic en el botón Aceptar. Ver captura de pantalla:

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

Ocultar fotos de contactos en correos electrónicos en Outlook

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