Cara Cepat Mengeksport Berbilang Kenalan ke Satu Fail VCard dengan Outlook VBA

Sekiranya anda mempunyai banyak kenalan di Outlook dan ingin mengeksportnya ke satu fail vCard, bukannya fail yang berasingan, anda boleh menggunakan kaedah pintar yang diperkenalkan dalam artikel ini.

Contohnya, anda perlu menghantar beratus-ratus kenalan ke orang lain. Daripada menghantarnya sebagai fail vCard yang berasingan, anda mungkin ingin menggabungkannya menjadi fail vCard tunggal dan kemudian menghantarnya. Sebenarnya, artikel saya sebelum ini - “Cara Mengeksport Berbilang Kenalan Outlook sebagai Fail VCard Tunggal"Telah memperkenalkan kaedah. Namun, pendekatan itu menuntut Anda untuk memiliki akun Gmail dan menggunakan fitur "Import dan Export" dari Gmail. Ringkasnya, itu cukup membebankan. Oleh itu, di sini kami akan memperkenalkan kaedah yang lebih berguna kepada anda.

Cepat Eksport Berbilang Kenalan ke Satu Fail vCard

1. Pertama, lancarkan aplikasi Outlook anda.
2. Kemudian, ketuk kekunci "Alt + F11" untuk mengakses editor VBA.
3. Seterusnya, di tetingkap baru, masukkan kod VBA ke dalam modul.

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. Setelah itu, tambahkan makro ini ke Bar Alat Akses Pantas dengan merujuk pada “Cara Menjalankan Kod VBA di Outlook Anda".
5. Akhirnya, anda boleh mencuba makro ini sekarang.

• Sebagai permulaan, pilih kenalan yang ingin anda eksport.
• Kemudian, klik butang makro di Bar Alat Akses Pantas.
• Kemudian anda akan melihat tetingkap arahan, yang menunjukkan bahawa semua kenalan digabungkan menjadi satu.
• Sekarang, anda boleh pergi ke folder "E: \ Temp Contacts" di Windows Explorer anda.
• Di folder tempatan ini, anda akan menemui fail vCard bernama "MergedContact", yang merupakan fail yang mengandungi semua kenalan yang dipilih.

Perbaiki Data Outlook Anda selepas Keretakan

Oleh kerana Outlook terdedah kepada rasuah, anda perlu menjaga fail PST anda dengan baik. Sebagai contoh, anda perlu terus menutup Outlook dengan cara yang betul. Juga, disarankan untuk tidak mengklik pautan yang tidak diketahui atau memuat turun lampiran yang disertakan dalam e-mel. Lebih-lebih lagi, anda sebaiknya memegang yang kuat Pembaikan PST utiliti, seperti DataNumen Outlook Repair. Dengan itu, walaupun fail Outlook anda rosak, anda masih boleh memperbaikinya dengan mudah.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com