2 วิธีในการสร้างกลุ่มผู้ติดต่อจากรายชื่อผู้ติดต่อในไฟล์ Excel

หากคุณต้องการสร้างกลุ่มผู้ติดต่อ Outlook จากรายชื่อผู้ติดต่อในไฟล์ Excel คุณสามารถใช้ 2 วิธีที่แนะนำในบทความนี้

ผู้ใช้บางรายกำลังมองหาวิธีสร้างกลุ่มผู้ติดต่อ Outlook อย่างรวดเร็วจากไฟล์ Excel ซึ่งมีรายชื่อผู้ติดต่อ แน่นอนคุณสามารถสร้างกลุ่มผู้ติดต่อดังกล่าวได้ด้วยตนเอง อย่างไรก็ตามมันค่อนข้างลำบาก ดังนั้นนอกเหนือจากวิธีการด้วยตนเองแล้วที่นี่เราจะแนะนำวิธีการด่วนอีกวิธีหนึ่งซึ่งใช้ VBA

วิธีที่ 1: สร้างด้วยตนเอง

1. ในตอนแรกให้เปิดไฟล์ Excel
2. จากนั้นเลือกคอลัมน์ที่มีที่อยู่อีเมล คุณยังสามารถรวมคอลัมน์สำหรับชื่อได้อีกด้วย
3. จากนั้นกด“ Ctrl + C” ไปยังเซลล์ที่เลือกทั้งหมด
4. หลังจากนั้น ให้เปิดโปรแกรม Outlook ของคุณ
5. จากนั้นสลับไปที่บานหน้าต่างผู้ติดต่อและกดปุ่ม "กลุ่มผู้ติดต่อใหม่"
6. จากนั้นคลิก“ เพิ่มสมาชิก” ->“ จากผู้ติดต่อ Outlook”
7. จากนั้นคลิกเข้าไปในช่อง“ Members ->” แล้วกดปุ่ม“ Ctrl + V” เพื่อวางผู้ติดต่อที่คัดลอกไว้ก่อนหน้านี้
8. กดปุ่ม "ตกลง"
9. จากนั้นกำหนดชื่อสำหรับกลุ่มผู้ติดต่อใหม่
10. สุดท้ายคลิก "บันทึกและปิด" เพื่อบันทึกกลุ่มนี้

วิธีที่ 2: สร้างผ่าน Outlook VBA

1. ในขั้นแรกให้กดปุ่ม“ Alt + F11” ใน Outlook
2. จากนั้นเปิดโมดูลใหม่
3. จากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในนั้น

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. หลังจากนั้นกดไอคอน "Run" ในแถบเครื่องมือ
5. ในครั้งเดียวกลุ่มผู้ติดต่อใหม่จะแสดงขึ้นเช่นภาพหน้าจอต่อไปนี้:

จัดการ Vexing Outlook Troubles อย่างชำนาญ

หากคุณพบข้อผิดพลาดต่างๆใน Outlook บ่อยครั้งขอแนะนำอย่างยิ่งให้รักษาความโดดเด่นและเชื่อถือได้ การกู้คืน Outlook เครื่องมือในบริเวณใกล้เคียงเช่น DataNumen Outlook Repair. ในกรณีนี้คุณสามารถใช้เพื่อจัดการกับปัญหาที่น่ารำคาญได้ทันเวลา

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.