Theo mặc định, bạn chỉ có thể xem tên thành viên và địa chỉ email trong một nhóm liên hệ. Nếu muốn biết thông tin chi tiết khác của các thành viên, bạn có thể sử dụng cách được giới thiệu trong bài viết này.
Khi bạn bấm đúp vào một nhóm liên hệ để mở nhóm đó, trong cửa sổ của nhóm đó, bạn chỉ có thể thấy tên và địa chỉ email của các thành viên trong nhóm. Bạn không thể lấy các thông tin chi tiết khác của thành viên, như công ty, chức danh, số điện thoại hoặc địa chỉ doanh nghiệp, v.v. Nói chung, để có được những thông tin chi tiết này, bạn phải tìm thủ công các liên hệ tương ứng với các thành viên trong thư mục Danh bạ của mình. Nó quá rắc rối. Ở đây chúng tôi sẽ hiển thị cho bạn một đoạn mã VBA, mã này có thể nhanh chóng xuất các chi tiết này sang sổ làm việc Excel.
Xuất thông tin chi tiết của tất cả thành viên trong nhóm liên hệ sang Excel
- Trước tiên, hãy mở ứng dụng Outlook của bạn.
- Sau đó, bạn nên nhấn phím tắt “Alt + F11” trong cửa sổ Outlook chính.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Application” mới, bạn cần mở một mô-đun không sử dụng hoặc chèn trực tiếp một mô-đun mới.
- Sau đó, sao chép và dán mã VBA sau vào mô-đun này.
Sub ExportMemberContactDetailsToExcel()
Dim objContactGroup As Outlook.DistListItem
Dim objGroupMember As Outlook.recipient
Dim objContacts As Outlook.Items
Dim objFoundContact As Outlook.ContactItem
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim i As Integer
Dim nRow As Integer
Dim strFilename As String
Set objContactGroup = Application.ActiveExplorer.Selection(1)
'Create a new Excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Add
Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
'Set the seven column headers
With objExcelWorkSheet
.Cells(1, 1) = "Name"
.Cells(1, 2) = "Email Address"
.Cells(1, 3) = "Company"
.Cells(1, 4) = "Job Title"
.Cells(1, 5) = "Phone Number"
.Cells(1, 6) = "Mailing Address"
.Cells(1, 7) = "Birthday"
End With
Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items.Restrict("[Email1Address]>''")
nRow = 2
For i = 1 To objContactGroup.MemberCount
Set objGroupMember = objContactGroup.GetMember(i)
strFilter = "[Email1Address] = '" & objGroupMember.Address & "'"
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
'Input the Contact Details
With objExcelWorkSheet
.Cells(nRow, 1) = objFoundContact.FullName
.Cells(nRow, 2) = objFoundContact.Email1Address
.Cells(nRow, 3) = objFoundContact.CompanyName
.Cells(nRow, 4) = objFoundContact.JobTitle
.Cells(nRow, 5) = objFoundContact.BusinessTelephoneNumber
.Cells(nRow, 6) = objFoundContact.MailingAddress
If objFoundContact.Birthday = #1/1/4501# Then
.Cells(nRow, 7) = ""
Else
.Cells(nRow, 7) = objFoundContact.Birthday
End If
End With
Else
With objExcelWorkSheet
.Cells(nRow, 1) = objGroupMember.Name
.Cells(nRow, 2) = objGroupMember.Address
End With
End If
nRow = nRow + 1
Next
'Fit the columns
objExcelWorkSheet.Columns("A:G").AutoFit
'Change the Path as per where you want to save the new Excel file
strFilename = "E:\" & objContactGroup.DLName & " Member Contact Details.xlsx"
'Save the Excel workbook
objExcelWorkBook.Close True, strFilename
MsgBox ("Complete!")
End Sub
- Sau đó, để thuận tiện cho việc kiểm tra, bạn có thể thêm dự án VBA mới vào Thanh công cụ truy cập nhanh hoặc ribbon.
- Sau đó hãy đặt mức bảo mật macro Outlook của bạn ở mức thấp.
- Cuối cùng, bạn có thể có một thử.
- Đầu tiên, chọn một nhóm liên lạc.
- Sau đó nhấn nút macro trong Thanh công cụ truy cập nhanh hoặc dải băng.
- Ngay lập tức macro sẽ chạy.
- Khi quá trình hoàn tất, bạn sẽ nhận được lời nhắc “Hoàn thành!”
- Sau đó, bạn có thể đi đến thư mục cục bộ đích được xác định trước, trong đó bạn có thể tìm thấy tệp Excel mới.
- Mở nó ra, bạn sẽ thấy thông tin liên hệ của các thành viên trong nhóm như ảnh chụp màn hình sau:
Đừng hoảng sợ khi đối mặt với các vấn đề của Outlook
Không ai sẵn sàng chấp nhận bất kỳ rắc rối nào của Outlook, bất kể thông báo lỗi bật lên hay Outlook bị hỏng tập tin dữ liệu. Vì vậy, người dùng sẽ có xu hướng hoảng sợ khi gặp phải các vấn đề về Outlook. Nếu muốn giữ bình tĩnh trong trường hợp đó, bạn nên có trong tay hai thứ cần thiết. Một là bản sao lưu dữ liệu Outlook hiện tại. Cái còn lại là phần mềm sửa lỗi Outlook mạnh mẽ, như DataNumen Outlook Repair.
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 phục hồi 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