Como exportar rapidamente vários contatos para um arquivo VCard com o Outlook VBA

Se você tiver vários contatos no Outlook e quiser exportá-los para um único arquivo vCard, em vez de arquivos separados, poderá usar o método inteligente apresentado neste artigo.

Por exemplo, você precisa enviar centenas de contatos para outra pessoa. Em vez de enviá-los como arquivos vCard separados, você pode querer combiná-los em um único arquivo vCard e enviá-lo. Na verdade, meu artigo anterior – “Como exportar vários contatos do Outlook como um único arquivo VCard” introduziu um método. No entanto, essa abordagem exige que você tenha uma conta do Gmail e use o recurso "Importar e exportar" do Gmail. Em poucas palavras, isso é bastante complicado. Portanto, aqui apresentaremos um método mais prático para você.

Exporte rapidamente vários contatos para um arquivo vCard

1. Primeiro, inicie seu aplicativo Outlook.
2. Em seguida, toque nas teclas “Alt + F11” para acessar o editor VBA.
3. Em seguida, na nova janela, coloque o código VBA em um módulo.

Sub ExportMultipleContactsIntoOneVCardFile()
    Dim objSelection As Outlook.Selection
    Dim strLocalDrive, strFolder As String
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim strVCardFile As String
 
    'Get all selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not objSelection Is Nothing Then
       'Save contacts in "E:\Temp Contacts\"
       strLocalDrive = "E:"
       strFolder = "Temp Contacts"
       MkDir (strLocalDrive & "\" & strFolder & "\")
 
       'Save all selected contacts as separate vCards
       For i = objSelection.Count To 1 Step -1
           If TypeName(objSelection(i)) = "ContactItem" Then
              Set objContact = objSelection(i)
 
              strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
              objContact.SaveAs strVCardFile, olVCard
           End If
       Next
 
       'Use cmd to merge all exported vCard files into one
       Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
    End If
End Sub

4. Depois disso, adicione esta macro à Barra de Ferramentas de Acesso Rápido com referência a “Como executar o código VBA no seu Outlook".
5. Eventualmente, você pode tentar esta macro agora mesmo.

• Para começar, selecione os contatos que deseja exportar.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Posteriormente, você verá uma janela de prompt de comando, que indica que todos os contatos foram mesclados em um.
• Agora, você pode ir para a pasta “E:\Temp Contacts” no seu Windows Explorer.
• Nesta pasta local, você encontrará um arquivo vCard chamado “MergedContact”, que é o arquivo que contém todos os contatos selecionados.

Repare seus dados do Outlook após falhas

Como o Outlook é suscetível à corrupção, você precisa cuidar bem do seu arquivo PST. Por exemplo, você precisa continuar fechando o Outlook de maneira adequada. Além disso, sugere-se nunca clicar em links desconhecidos ou baixar anexos incorporados em e-mails. Além disso, é melhor você se apossar de um poderoso Reparação de PST utilitário, como DataNumen Outlook Repair. Com ele, mesmo que seu arquivo do Outlook seja corrompido, você ainda pode repará-lo com facilidade e sem esforço.

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 corrupto SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com