So exportieren Sie mit Outlook VBA schnell mehrere Kontakte in eine VCard-Datei

Wenn Sie in Outlook mehrere Kontakte haben und diese in eine einzelne vCard-Datei anstatt in separate Dateien exportieren möchten, können Sie die in diesem Artikel vorgestellte intelligente Methode verwenden.

Zum Beispiel müssen Sie Hunderte von Kontakten an andere senden. Anstatt sie als separate vCard-Dateien zu senden, möchten Sie sie möglicherweise zu einer einzigen vCard-Datei kombinieren und dann senden. Eigentlich mein vorheriger Artikel - “So exportieren Sie mehrere Outlook-Kontakte als einzelne VCard-DateiHat eine Methode eingeführt. Für diesen Ansatz müssen Sie jedoch über ein Google Mail-Konto verfügen und die Funktion "Importieren und Exportieren" von Google Mail verwenden. Kurz gesagt, das ist ziemlich umständlich. Daher stellen wir Ihnen hier eine handlichere Methode vor.

Exportieren Sie schnell mehrere Kontakte in eine vCard-Datei

1. Starten Sie zunächst Ihre Outlook-Anwendung.
2. Tippen Sie anschließend auf die Tasten „Alt + F11“, um auf den VBA-Editor zuzugreifen.
3. Fügen Sie als Nächstes im neuen Fenster den VBA-Code in ein Modul ein.

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. Fügen Sie danach dieses Makro zur Symbolleiste für den Schnellzugriff mit dem Verweis auf „So führen Sie VBA-Code in Outlook aus".
5. Schließlich können Sie dieses Makro jetzt ausprobieren.

• Wählen Sie zunächst die Kontakte aus, die Sie exportieren möchten.
• Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
• Später sehen Sie ein Eingabeaufforderungsfenster, das anzeigt, dass alle Kontakte zu einem zusammengeführt wurden.
• Jetzt können Sie in Ihrem Windows Explorer zum Ordner "E: \ Temp Contacts" wechseln.
• In diesem lokalen Ordner finden Sie eine vCard-Datei mit dem Namen "MergedContact". Diese Datei enthält alle ausgewählten Kontakte.

Reparieren Sie Ihre Outlook-Daten nach Abstürzen

Da Outlook anfällig für Beschädigungen ist, müssen Sie Ihre PST-Datei sorgfältig pflegen. Zum Beispiel müssen Sie Ihr Outlook weiterhin ordnungsgemäß schließen. Es wird außerdem empfohlen, niemals auf unbekannte Links zu klicken oder in E-Mails eingebettete Anhänge herunterzuladen. Außerdem solltest du besser einen Mächtigen ergattern PST-Reparatur Dienstprogramm, wie z DataNumen Outlook Repair. Selbst wenn Ihre Outlook-Datei beschädigt wird, können Sie sie damit mühelos reparieren.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupt SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX