2 Metode untuk Batch Ekspor Beberapa Kontak Outlook sebagai File vCard

Jika Anda ingin mengekspor beberapa kontak Outlook sebagai file vCard secara massal, Anda dapat menggunakan dua cara yang diperkenalkan di artikel ini.

Tidak ada keraguan bahwa sangat mudah untuk mengekspor kontak Outlook sebagai file vCard. Anda cukup memilih kontak dan kemudian beralih ke menu "File" dan tekan "Save As". Di kotak dialog "Simpan Sebagai" popup, opsi jenis "File vCard" tersedia secara default. Namun, jika Anda memilih beberapa kontak dan menggunakan "Save As", yang ada hanya opsi "Text File". Jadi, asalkan Anda ingin mengekspor banyak kontak secara massal sebagai file vCard terpisah, Anda harus mencari cara lain. Di sini kami akan memperkenalkan Anda dua cara.

Metode 1: Teruskan Kontak sebagai Kartu Nama

1. Pertama-tama, buka aplikasi Outlook Anda.
2. Kemudian alihkan ke panel "Kontak" dan buka folder Kontak yang benar.
3. Selanjutnya pilih kontak yang ingin Anda ekspor sebagai file vCard.
4. Selanjutnya, pilih "Teruskan Kontak"> "Sebagai Kartu Nama".
5. Setelah itu, pesan baru akan muncul, di mana semua kontak yang dipilih dilampirkan.
6. Sekarang Anda harus memilih semua kartu nama terlampir di baris "Lampirkan".
7. Nanti Anda dapat menarik dan melepasnya ke drive lokal, seperti gambar di bawah ini:
8. Sekaligus, Anda akan mendapatkan file vCard terpisah di drive lokal.

Metode 2: Ekspor Batch sebagai vCards dengan Outlook VBA

1. Pertama-tama, tekan tombol "Alt + F11" di jendela utama Outlook.
2. Kemudian Anda akan mendapatkan akses ke editor Outlook VBA.
3. Selanjutnya Anda perlu menyalin kode VBA berikut ke dalam modul yang tidak digunakan.

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. Selanjutnya, untuk kenyamanan, Anda dapat menambahkan proyek VBA baru ke Bilah Alat Akses Cepat.
5. Selain itu, Anda harus memastikan bahwa Outlook mengizinkan makro.
6. Akhirnya, Anda bisa mencobanya.

• Pertama, pilih kontak sumber.
• Lalu klik tombol makro di Bilah Alat Akses Cepat.
• Setelah makro selesai berjalan, Anda akan dapat menemukan file vCard yang sesuai di folder lokal yang telah ditentukan sebelumnya.

Buang Masalah Vexing PST

Jika Anda telah menggunakan Outlook selama beberapa dekade, Anda pasti mengalami berbagai masalah PST, seperti masalah PST yang tidak dapat diakses. Dalam hal ini, seperti biasa, Anda dapat kembali ke file alat perbaikan kotak masuk. Jika gagal, Anda dapat menggunakan alat yang lebih berpengalaman, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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