2 Μέθοδοι μαζικής εξαγωγής πολλαπλών επαφών του Outlook ως αρχεία vCard

Εάν θέλετε να εξαγάγετε πολλές επαφές του Outlook ως αρχεία vCard μαζικά, μπορείτε να χρησιμοποιήσετε τα δύο μέσα που εισάγονται σε αυτό το άρθρο.

Δεν υπάρχει αμφιβολία ότι είναι πολύ εύκολο να εξαγάγετε μια επαφή Outlook ως αρχείο vCard. Μπορείτε απλά να επιλέξετε μια επαφή και μετά να μεταβείτε στο μενού "Αρχείο" και να πατήσετε "Αποθήκευση ως". Στο αναδυόμενο παράθυρο διαλόγου "Αποθήκευση ως", η επιλογή τύπου "Αρχείο vCard" είναι διαθέσιμη από προεπιλογή. Ωστόσο, εάν επιλέξετε πολλές επαφές και χρησιμοποιήσετε το "Αποθήκευση ως", υπάρχει μόνο η επιλογή "Αρχείο κειμένου". Έτσι, υπό την προϋπόθεση ότι θέλετε να εξαγάγετε μαζικά πολλές επαφές ως ξεχωριστά αρχεία vCard, πρέπει να αναζητήσετε άλλα μέσα. Εδώ θα σας παρουσιάσουμε δύο τρόπους.

Μέθοδος 1: Προώθηση επαφών ως επαγγελματική κάρτα

1. Για να ξεκινήσετε, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, μεταβείτε στο παράθυρο "Επαφές" και ανοίξτε το σωστό φάκελο Επαφών.
3. Στη συνέχεια, επιλέξτε τις επαφές που θέλετε να εξαγάγετε ως αρχεία vCard.
4. Στη συνέχεια, επιλέξτε "Προώθηση επαφής"> "Ως επαγγελματική κάρτα".
5. Μετά από αυτό, θα εμφανιστεί ένα νέο μήνυμα, στο οποίο επισυνάπτονται όλες οι επιλεγμένες επαφές.
6. Τώρα θα πρέπει να επιλέξετε όλες τις συνημμένες επαγγελματικές κάρτες στη γραμμή "Επισύναψη".
7. Αργότερα μπορείτε να τα μεταφέρετε και να τα αφήσετε στην τοπική μονάδα δίσκου, όπως η παρακάτω εικόνα:
8. Ταυτόχρονα, θα λάβετε τα ξεχωριστά αρχεία vCard στην τοπική μονάδα δίσκου.

Μέθοδος 2: Εξαγωγή παρτίδας ως vCards με το Outlook VBA

1. Πρώτα, πατήστε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
2. Στη συνέχεια, θα έχετε πρόσβαση στο πρόγραμμα επεξεργασίας του Outlook VBA.
3. Στη συνέχεια πρέπει να αντιγράψετε τους ακόλουθους κωδικούς VBA σε μια μονάδα που δεν χρησιμοποιείται.

Sub ExportMultipleContactsAsVCards()
    Dim objSelection As Outlook.Selection
    Dim objContact As Outlook.ContactItem
    Dim objItem As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    'If want to export all contacts, use the following lines instead
    'Dim olContacts as Outlook.Items
    'Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
    'For Each objItem In olContacts
    For Each objItem In objSelection
        If TypeOf objItem Is ContactItem Then
           Set objContact = objItem
           'Change the predefined local folder for saving the vCards
           objContact.SaveAs "E:\" & objContact.FullName & ".vcf", olVCard
        End If
    Next
End Sub

4. Στη συνέχεια, για ευκολία, μπορείτε να προσθέσετε το νέο έργο VBA στη γραμμή εργαλείων γρήγορης πρόσβασης.
5. Επιπλέον, πρέπει να διασφαλίσετε ότι το Outlook επιτρέπει μακροεντολές.
6. Τέλος, μπορείτε να δοκιμάσετε.

• Αρχικά, επιλέξτε τις επαφές προέλευσης.
• Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
• Μετά την εκτέλεση της μακροεντολής, θα μπορείτε να βρείτε τα αντίστοιχα αρχεία vCard στον προκαθορισμένο τοπικό φάκελο.

Απορρίψτε τα προβλήματα PST Vexing

Εάν έχετε χρησιμοποιήσει το Outlook για δεκαετίες, πρέπει να έχετε αντιμετωπίσει διάφορα ζητήματα PST, όπως δυσπρόσιτα προβλήματα PST. Σε αυτήν την περίπτωση, ως συνήθως, μπορείτε πρώτα να επαναλάβετε το εργαλείο επισκευής εισερχομένων. Εάν αποτύχει, μπορείτε να καταφύγετε σε ένα πιο έμπειρο εργαλείο, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com