Como guardar as fotografias dos contactos no Outlook?

Guardar a fotografia de um contacto no Outlook

Guardar todas as fotografias de todos os contactos no Outlook

Para guardar a fotografia de um determinado contacto no Outlook, proceda da seguinte forma:

1. Abra a pasta de contactos que contém o contacto especificado e altere a vista da pasta clicando em Ver > Alterar Vista > Lista. Veja a captura de ecrã:

2. Faça duplo clique para abrir o contacto cuja fotografia pretende guardar.

3. Na janela do contacto, clique com o botão direito na fotografia do contacto e selecione Copiar no menu de contexto. Veja a captura de ecrã:

4. Coloque o cursor na caixa Notas e prima as teclas Ctrl + V para colar a fotografia na caixa Notas.

5. Clique com o botão direito na fotografia colada na caixa Notas e selecione Guardar como Imagem no menu de contexto. Veja a captura de ecrã:

6. Na caixa de diálogo Guardar Ficheiro que surge, (1) abra a pasta de destino onde pretende guardar a fotografia, (2) introduza um nome para a nova fotografia na caixa Nome do ficheiro, (3) especifique um tipo de imagem na lista suspensa Especificar Formato de Salvamento e, por fim, (4) clique no botão Guardar. Veja a captura de ecrã:

7. Feche a janela do contacto sem guardar as alterações.

Até agora, a fotografia do contacto especificado já foi guardada como uma imagem individual.

Se precisar de guardar as fotografias de todos os contactos numa pasta do Outlook, experimente a macro VBA abaixo.

1. Abra a pasta de contactos especificada onde pretende guardar todas as fotografias dos contactos e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e, de seguida, cole o código VBA abaixo na nova janela do módulo.

VBA: Guardar em lote as fotografias de todos os contactos no 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 VBA guarda todas as fotografias dos contactos como imagens JPG. Para guardar noutro tipo de imagem, altere a extensão .jpg no código xPath = xFileName & xName & «.jpg» para outra extensão, como .png, .gif, etc.

3. Prima a tecla F5 ou o botão Executar para executar esta macro VBA.

4. Na caixa de diálogo Procurar Pasta que surge, selecione a pasta de destino onde pretende guardar as fotografias e clique no botão OK. Veja a captura de ecrã:

Agora, todas as fotografias dos contactos na pasta selecionada foram guardadas em massa como imagens individuais .jpg (ou outro tipo de imagem conforme especificado).

Ocultar fotografias dos contactos nos e-mails no Outlook

Adicionar, alterar ou remover a imagem/fotografia de um contacto no Outlook