Cara Cepat Mengekspor Banyak Kontak ke Satu File VCard dengan Outlook VBA

Jika Anda memiliki beberapa kontak di Outlook dan ingin mengekspornya ke satu file vCard, alih-alih file terpisah, Anda dapat menggunakan metode cerdas yang diperkenalkan dalam artikel ini.

Misalnya, Anda perlu mengirim ratusan kontak ke orang lain. Daripada mengirimnya sebagai file vCard terpisah, Anda mungkin ingin menggabungkannya menjadi satu file vCard lalu mengirimkannya. Sebenarnya, artikel saya sebelumnya – “Cara Mengekspor Beberapa Kontak Outlook sebagai File VCard Tunggal” telah memperkenalkan sebuah metode. Namun, pendekatan itu menuntut Anda untuk memiliki akun Gmail dan menggunakan fitur "Impor dan Ekspor" Gmail. Singkatnya, itu cukup merepotkan. Oleh karena itu, di sini kami akan memperkenalkan metode yang lebih praktis untuk Anda.

Ekspor Beberapa Kontak dengan Cepat ke Satu File vCard

1. Pertama, luncurkan aplikasi Outlook Anda.
2. Kemudian, ketuk tombol "Alt + F11" untuk mengakses editor VBA.
3. Selanjutnya, di jendela baru, masukkan kode 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 Bilah Alat Akses Cepat dengan mengacu pada “Cara Menjalankan Kode VBA di Outlook Anda".
5. Akhirnya, Anda dapat mencoba makro ini sekarang.

• Sebagai langkah awal, pilih kontak yang ingin Anda ekspor.
• Lalu, klik tombol makro di Bilah Alat Akses Cepat.
• Nanti Anda akan melihat jendela prompt perintah, yang menunjukkan bahwa semua kontak digabungkan menjadi satu.
• Sekarang, Anda dapat pergi ke folder "E:\Temp Contacts" di Windows Explorer Anda.
• Di folder lokal ini, Anda akan menemukan file vCard bernama "MergedContact", yang merupakan file yang berisi semua kontak yang dipilih.

Perbaiki Data Outlook Anda setelah Kerusakan

Karena Outlook rentan terhadap korupsi, Anda harus merawat file PST dengan baik. Misalnya, Anda harus terus menutup Outlook dengan cara yang benar. Juga, disarankan untuk tidak pernah mengklik tautan yang tidak dikenal atau mengunduh lampiran yang disematkan dalam email. Selain itu, Anda sebaiknya mendapatkan yang kuat Perbaikan PST utilitas, seperti DataNumen Outlook Repair. Dengan itu, bahkan jika file Outlook Anda rusak, Anda masih dapat memperbaikinya dengan mudah.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korup SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com