Salve a foto de um contato no Outlook

Salve todas as fotos de todos os contatos no Outlook

Para salvar a foto de um determinado contato no Outlook, faça o seguinte:

1. Abra a pasta de contatos que contém o contato especificado e altere a visualização da pasta clicando em Ver > Alterar vista > Lista. Veja a imagem:

2. Clique duas vezes para abrir o contato especificado cuja foto você salvará.

3. Na janela de contato, clique com o botão direito na foto do contato e selecione Copiar no menu do botão direito. Veja a imagem:

4. Coloque o cursor no Notas caixa e pressione Ctrl + V teclas para colar a foto no Notas caixa.

5. Clique com o botão direito na foto colada no Notas caixa e selecione Salvar como imagem no menu do botão direito. Veja a imagem:

6. Na janela pop-up Salvar Arquivo, por favor (1) abra a pasta de destino em que você salvará a foto, (2) digite um nome para a nova foto no Nome do arquivo caixa, (3) especifique um tipo de imagem do Salvar como tipo lista suspensa e, finalmente, (4) clique no Salvar botão. Veja a imagem:

7. Feche a janela de contato sem salvar as alterações.

Até agora, a foto do contato especificado já foi salva como uma imagem individual.

Se você precisar salvar as fotos de todos os contatos em uma pasta de contatos no Outlook, tente o VBA abaixo.

1. Abra a pasta de contato especificada onde você salvará todas as fotos de contato e pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o código VBA abaixo na janela do novo módulo.

VBA: salvar em lote fotos de todos os contatos 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

Note: Este VBA salvará todas as fotos de contato como imagens JPG. Para salvar como outro tipo de imagem, altere o . Jpg no código xPath = xFileName & xName & ".jpg" para outros nomes de extensão, como . Png, . Gif, etc.

3. aperte o F5 chave ou o Execute botão para executar este VBA.

4. Na caixa de diálogo Browse For Folder, selecione a pasta de destino na qual você salvará as fotos e clique no botão OK botão. Veja a imagem:

Agora, todas as fotos de contato na pasta de contato selecionada são salvas como imagens .jpg individuais (ou outro tipo de imagem conforme especificado) em massa.

Ocultar fotos de contatos em e-mails no Outlook

Adicionar, alterar ou remover imagem / foto de contato no Outlook