2 Metode untuk Membuat Grup Kontak dari Daftar Kontak di File Excel

Jika Anda ingin membuat grup kontak Outlook dari daftar kontak di file Excel, Anda dapat menggunakan 2 metode yang diperkenalkan di artikel ini.

Beberapa pengguna mencari cara untuk membuat grup kontak Outlook dengan cepat dari file Excel yang berisi daftar kontak. Tentu saja, Anda dapat membuat grup kontak tersebut secara manual. Namun, ini agak merepotkan. Oleh karena itu, selain cara manual, di sini kami juga akan memperkenalkan metode cepat lain yang menggunakan VBA.

Metode 1: Buat Secara Manual

1. Pertama-tama, buka file Excel.
2. Kemudian pilih kolom yang berisi alamat email. Secara opsional, Anda juga bisa menyertakan kolom untuk nama juga.
3. Selanjutnya tekan "Ctrl + C" ke semua sel yang dipilih.
4. Setelah itu, jalankan program Outlook Anda.
5. Kemudian beralih ke panel Kontak dan tekan tombol "Grup Kontak Baru".
6. Selanjutnya, klik "Tambah Anggota" -> "Dari Kontak Outlook"
7. Kemudian klik di kolom "Anggota ->" dan tekan tombol "Ctrl + V" untuk menempelkan kontak yang disalin sebelumnya.
8. Tekan tombol "OK".
9. Kemudian tetapkan nama untuk grup kontak baru.
10. Terakhir klik "Simpan & Tutup" untuk menyimpan grup ini.

Metode 2: Buat melalui Outlook VBA

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

Sub CreateContactGroupfromExcel()
    Dim objContactsFolder As Outlook.Folder
    Dim objContact As Outlook.ContactItem
    Dim objContactGroup As Outlook.DistListItem
    Dim objExcelApp As New Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim nCurrentRow As Integer
    Dim objNameCell As Excel.Range
    Dim objEmailCell As Excel.Range
    Dim strName As String
    Dim strEmail As String
    Dim objTempMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients

    Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContactGroup = Outlook.Application.CreateItem(olDistributionListItem)
    'You can change the contact group name
    objContactGroup.DLName = "Group Name"
 
    Set objExcelApp = CreateObject("Excel.Application")
    'You should change the path to your own Excel file
    Set objExcelWorkbook = objExcelApp.Workbooks.Open("E:\Contacts.xlsx")
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nLastRow = objExcelWorksheet.UsedRange.Rows.Count
    'The "A2" varies with the first contact's name cell in your own Excel file
    Set objNameCell = objExcelApp.Range("A2")
    objNameCell.Select
 
    While nCurrentRow <= nLastRow
          nCurrentRow = objNameCell.Row
 
          strName = objNameCell.Value
 
          If strName = "" Then
             GoTo NextRow
          End If
 
          Set objEmailCell = objExcelApp.ActiveCell.Offset(0, 1)
          strEmail = objEmailCell.Value
 
          Set objContact = objContactsFolder.Items.Find("[FullName] = '" & strName & "'")
 
          'If there is no such a contact, create it.
          If objContact Is Nothing Then
             Set objContact = Outlook.Application.CreateItem(olContactItem)
             With objContact
                  .FullName = strName
                  .Email1Address = strEmail
                  .Save
             End With
          End If
 
          'Add the contacts to the new contact group
          Set objTempMail = Application.CreateItem(olMailItem)
          objTempMail.Recipients.Add (strName)
          Set objRecipients = objTempMail.Recipients
          objContactGroup.AddMembers objRecipients

    NextRow:
          Set objNameCell = objExcelApp.ActiveCell.Offset(1, 0)
          objNameCell.Select
    Wend
 
    'Use "objContactGroup.Save" to straightly save it
    objContactGroup.Display
    objTempMail.Close olDiscard
    objExcelApp.Quit
End Sub

4. Setelah itu, tekan ikon "Run" di toolbar.
5. Sekaligus, grup kontak baru akan ditampilkan, seperti tangkapan layar berikut:

Tangani Masalah Vexing Outlook Dengan Terampil

Jika Anda sering mengalami berbagai kesalahan di Outlook, sangat disarankan untuk tetap menggunakan yang terbaik dan andal Pemulihan Outlook alat di sekitarnya, seperti DataNumen Outlook Repair. Dalam hal ini, Anda dapat menggunakannya untuk menangani masalah yang mengganggu melalui itu tepat waktu.

Pengantar Penulis:

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