2 Metode untuk Mengekspor Semua Anggota Grup Kontak Outlook ke Excel

Terkadang, Anda mungkin ingin mengekspor anggota dalam grup kontak Outlook tertentu. Jadi artikel ini akan membagikan kepada Anda 2 cara untuk mengekstrak anggota grup ke Excel.

Outlook menawarkan fitur asli yang memungkinkan Anda mengekspor semua kontak dari folder kontak tertentu. Namun, itu tidak memungkinkan Anda mengekspor grup kontak, belum lagi mengekstraksi anggota di grup kontak. Oleh karena itu, jika Anda ingin mengekstraksi anggota grup kontak yang dipilih, Anda perlu berusaha lebih keras. Berikut adalah dua tips yang bisa Anda rujuk.

Metode 1: Ekstrak Anggota Grup Melalui Simpan Sebagai

1. Pada awalnya, luncurkan Outlook.
2. Kemudian cari dan pilih grup kontak yang anggotanya perlu Anda ekstrak.
3. Selanjutnya Anda harus pergi ke menu "File" dan klik "Save As".
4. Selanjutnya, di kotak dialog popup "Save As", pilih folder tujuan untuk disimpan dan pilih "Text Only" dari daftar drop-down "Save as type".
5. Dan kemudian klik "Simpan".
6. Setelah itu, buka Excel dan buat file excel baru.
7. Nanti Anda harus beralih ke "File" dan klik tombol "Open".
8. Di kotak dialog "Buka" berikutnya, pertama-tama Anda harus mengakses folder tempat Anda menyimpan grup kontak tadi.
9. Kemudian klik kotak kedua di baris "Nama file" dan pilih "Semua File" dari daftar drop-down.
10. Setelah itu, buka file Teks untuk grup kontak dan tekan "Buka".
11. Di kotak dialog popup "Wisaya Impor Teks", pastikan "Dibatasi" dipilih dan klik tombol "Selesai".
12. Akhirnya Anda akan mendapatkan anggota, seperti tangkapan layar berikut:

Metode 2: Ekstrak Anggota Grup melalui Outlook VBA

1. Pertama-tama, tekan tombol "Alt + F11" di Outlook.
2. Kemudian buka modul baru di jendela editor VBA.
3. Selanjutnya, salin kode VBA berikut ke dalamnya.

Sub ExtractContactGroupMembersToExcel()
    Dim objContactGroup As Outlook.DistListItem
    Dim objMember As Outlook.recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim i As Integer
    Dim nRow As Integer
    Dim strPath As String
    Dim strFilename As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objContactGroup Is DistListItem Then
       'Create a new Excel workbook
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkBook = objExcelApp.Workbooks.Add
       Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
 
       'Set the two column headers
       objExcelWorkSheet.Cells(1, 1) = "Contact Name"
       objExcelWorkSheet.Cells(1, 2) = "Email Address"

       nRow = 2
 
       'Extract the contact group members' names and email addresses
       For i = 1 To objContactGroup.MemberCount
           Set objMember = objContactGroup.GetMember(i)
           objExcelWorkSheet.Cells(nRow, 1) = objMember.Name
           objExcelWorkSheet.Cells(nRow, 2) = objMember.Address
           nRow = nRow + 1
       Next
 
       'AutoFit the columns in the new Excel worksheet
       objExcelWorkSheet.Columns("A:B").AutoFit
 
       'Change the strPath to your actual case
       strPath = "C:\Contact Groups\"
       strFilename = strPath & objContactGroup.DLName & ".xlsx"
 
       'Save the Excel workbook
       objExcelWorkBook.Close True, strFilename
 
       'Notify you of the export complete
       MsgBox ("Export Complete!")
    End If
End Sub

4. Setelah itu, Anda dapat menambahkan makro tersebut ke Quick Access Toolbar (QAT) seperti biasa.
5. Nanti, Anda dapat memilih grup kontak dan mengklik tombol makro di QAT.
6. Setelah mengekspor, Anda akan menerima pesan – “Ekspor Selesai!”
7. Akhirnya, Anda dapat menemukan file Excel di folder yang telah ditentukan sebelumnya dalam kode VBA. Buka, Anda dapat melihat anggota grup, seperti gambar di bawah ini:

Dapatkan Kembali Data PST Anda Sebelumnya

Karena Outlook rentan macet, data PST Anda bisa rusak tanpa pertanda apa pun. Karena itu, Anda harus membuat cadangan file PST Anda secara teratur. Selain itu, sebaiknya Anda menyiapkan alat yang ampuh, seperti DataNumen Outlook Repair, Yang dapat perbaiki Outlook data secara tepat waktu.

Pengantar Penulis:

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