Como exportar em lote as imagens do cartão de visita de vários contatos do Outlook para uma pasta do Windows

O Outlook não oferece um recurso direto de suporte para exportar a imagem do cartão de visita de um contato, para não mencionar a exportação em lote de várias imagens de cartão de visita. Mas, neste artigo, vamos descobrir um pedaço de código VBA, que pode ser realizado com facilidade.

É fácil exportar os contatos do Outlook para uma pasta local como arquivos de texto ou arquivos vCard. No entanto, às vezes, você pode querer salvar as imagens dos cartões de visita dos contatos na pasta local. No entanto, não existe um recurso nativo para isso. Portanto, se você deseja exportar em lote as imagens dos cartões de visita de muitos contatos, deve buscar outros meios, como o seguinte, usando o código VBA.

Exportar em lote as imagens do cartão de visita de vários contatos

1. Para comotart, inicie o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
2. Em seguida, coloque o código a seguir em um módulo não utilizado.

Sub ExportContactBusinessCardImages() Dim objSelection As Outlook.Selection Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String Dim objItem As Object Dim objContact As Outlook.ContactItem Dim strBusinessCard As String 'Obter os contatos selecionados Set objSelection = Application.ActiveExplorer.Selection If Not (objSelection is Nothing) Then 'Selecione uma pasta do Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Selecione uma pasta do Windows:", 0, "") Se não objWindowsFolder is Nothing Then For Each objItem In objSelection If TypeOf objItem For ContactItem Then Set objContact = objItem 'Salve as imagens do cartão de visita do contato strWindowsFolder = objWindowsFolder.self.Path & "\" strBusinessCard = strWindowsFolder & objContact.FullName & ".jpg" objContact.SaveBusinessCardImage ( strBusinessCard) End If Next 'Abre a pasta Windows Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End If End Sub

3. Posteriormente, saia do editor VBA.
4. Mais tarde, adicione esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
5. Eventualmente, execute as etapas a seguir para experimentar essa macro.

• Primeiro, selecione os contatos que você deseja.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Em seguida, na nova caixa de diálogo, selecione um tarobtenha a pasta do Windows e clique em "OK".
• Em seguida, será exibida a pasta, na qual você encontrará as imagens dos cartões de visita exportados, conforme mostrado na figura a seguir.

Salvar dados do Outlook após a corrupção

Como outros softwares, o Outlook pode travar de tempos em tempos. Na melhor das hipóteses, você descobrirá que nada de ruim ocorre no seu Outlook. No entanto, na pior das hipóteses, o arquivo PST do Outlook pode se tornar facilmente corrompido. Nesse momento, você não tem alternativa a não ser empregar uma ferramenta de reparo proficiente do Outlook, como DataNumen Outlook Repair para corrigir Outlook arquivo.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparo do sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com