Cómo exportar rápidamente varios contactos a un archivo VCard con Outlook VBA

Si tiene varios contactos en su Outlook y desea exportarlos a un solo archivo vCard, en lugar de archivos separados, puede usar el método inteligente presentado en este artículo.

Por ejemplo, necesita enviar cientos de contactos a otra persona. En lugar de enviarlos como archivos vCard separados, es posible que desee combinarlos en un solo archivo vCard y luego enviarlo. En realidad, mi artículo anterior: "Cómo exportar varios contactos de Outlook como un solo archivo VCard”Ha introducido un método. Sin embargo, ese enfoque exige que tenga una cuenta de Gmail y utilice la función "Importar y exportar" de Gmail. En pocas palabras, eso es bastante engorroso. Por lo tanto, aquí le presentaremos un método más práctico.

Exportar rápidamente varios contactos a un archivo vCard

1. En primer lugar, inicie su aplicación Outlook.
2. Luego, toque las teclas "Alt + F11" para acceder al editor de VBA.
3. A continuación, en la nueva ventana, coloque el código VBA en un 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. Después de eso, agregue esta macro a la barra de herramientas de acceso rápido con referencia a "Cómo ejecutar código VBA en su Outlook".
5. Eventualmente, puede probar esta macro ahora mismo.

• Para empezar, selecciona los contactos que deseas exportar.
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Más tarde, verá una ventana de símbolo del sistema, que indica que todos los contactos se fusionaron en uno.
• Ahora, puede ir a la carpeta "E: \ Contactos temporales" en su Explorador de Windows.
• En esta carpeta local, encontrará un archivo vCard llamado "MergedContact", que es el archivo que contiene todos los contactos seleccionados.

Repare sus datos de Outlook después de fallas

Como Outlook es susceptible a la corrupción, debe cuidar bien su archivo PST. Por ejemplo, debe seguir cerrando Outlook de manera adecuada. Además, se sugiere nunca hacer clic en enlaces desconocidos o descargar archivos adjuntos incrustados en correos electrónicos. Además, es mejor que te apoyes en un poderoso Reparación de PST utilidad, como DataNumen Outlook Repair. Con él, incluso si su archivo de Outlook se corrompe, aún puede repararlo sin esfuerzo.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupto SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com