2 phương pháp xuất tất cả thành viên của nhóm liên hệ Outlook sang Excel

giải pháp triển vọng Tháng Chín 29, 2025

Đôi khi, bạn có thể muốn xuất các thành viên trong một nhóm liên hệ Outlook nhất định. Vì vậy, bài viết này sẽ chia sẻ cho bạn 2 phương tiện để trích xuất các thành viên trong nhóm ra Excel.

Outlook cung cấp một tính năng gốc cho phép bạn xuất tất cả các liên hệ của một thư mục liên hệ nhất định. Tuy nhiên, nó không cho phép bạn xuất các nhóm liên hệ, chưa kể trích xuất các thành viên trong nhóm liên hệ. Do đó, nếu bạn muốn trích xuất các thành viên của nhóm liên hệ đã chọn, bạn cần thực hiện thêm một số nỗ lực. Đây là hai lời khuyên bạn có thể tham khảo.

Phương pháp 1: Trích xuất các thành viên nhóm qua Save As

Ngay từ đầu, hãy khởi chạy Outlook.
Sau đó tìm và chọn nhóm liên hệ có thành viên mà bạn cần trích xuất.
Tiếp theo, bạn nên vào menu “File” và nhấp vào “Save As”.
Sau đó, trong hộp thoại bật lên “Lưu dưới dạng”, hãy chọn thư mục đích để lưu và chọn “Chỉ văn bản” từ danh sách thả xuống của “Lưu dưới dạng”.
Và sau đó nhấp vào "Lưu".
Sau đó, mở Excel và tạo một tệp excel mới.
Sau đó, bạn nên chuyển sang “Tệp” và nhấp vào nút “Mở”.
Trong hộp thoại “Mở” tiếp theo, trước tiên bạn nên truy cập vào thư mục mà bạn vừa lưu nhóm liên hệ.
Sau đó nhấp vào ô thứ hai trong dòng “Tên tệp” và chọn “Tất cả các tệp” từ danh sách thả xuống của nó.
Sau đó, quảng cáo trên tệp Văn bản cho nhóm liên hệ và nhấn “Mở”.
Trong hộp thoại “Trình hướng dẫn nhập văn bản” bật lên, hãy đảm bảo rằng “Được phân cách” được chọn và nhấp vào nút “Hoàn tất”.
Cuối cùng, bạn sẽ nhận được các thành viên, giống như ảnh chụp màn hình sau:

Phương pháp 2: Trích xuất các Thành viên Nhóm qua Outlook VBA

Trước tiên, hãy nhấn các nút phím “Alt + F11” trong Outlook.
Sau đó mở một mô-đun mới trong cửa sổ soạn thảo VBA.
Sau đó, sao chép các mã VBA sau vào đó.

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

Sau đó, bạn có thể thêm macro vào Quick Access Toolbar (QAT) như bình thường.
Sau đó, bạn có thể chọn một nhóm liên hệ và nhấp vào nút macro trong QAT.
Sau khi xuất, bạn sẽ nhận được thông báo – “Xuất hoàn tất!”
Cuối cùng, bạn có thể tìm thấy tệp Excel trong thư mục được xác định trước trong mã VBA. Mở nó lên, bạn có thể thấy các thành viên trong nhóm, như hình bên dưới:

Lấy lại dữ liệu PST trước đó của bạn

Vì Outlook dễ gặp sự cố, dữ liệu PST của bạn có thể bị hỏng mà không có bất kỳ dấu hiệu nào. Do đó, bạn nên sao lưu thường xuyên các tệp PST của mình. Ngoài ra, bạn nên chuẩn bị tốt hơn một công cụ mạnh mẽ, chẳng hạn như DataNumen Outlook Repair, có thể sửa chữa triển vọng dữ liệu kịp thời.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm