Nếu bạn muốn lấy số cuộc hẹn được liên kết với một liên hệ cụ thể, bạn có thể sử dụng một trong 2 cách được giới thiệu trong bài viết này.
Outlook cho phép người dùng liên kết cuộc hẹn với danh bạ. Nếu bạn đã liên kết nhiều cuộc hẹn với một liên hệ cụ thể và sau đó muốn đếm chúng, bạn không thích đếm từng cuộc hẹn một. Vì vậy, trong phần sau đây, chúng tôi sẽ giới thiệu cho bạn 2 cách. Bạn có thể chọn ether theo ý thích của mình.
Phương pháp 1: Đếm trong “Hoạt động” liên hệ
- Đầu tiên, nhấp đúp vào liên hệ cụ thể để mở liên hệ đó trong cửa sổ riêng.
- Sau đó, nhấp vào “Hoạt động” trong nhóm “Hiển thị”.
- Tiếp theo, trong trang mới, di chuyển con trỏ đến tiêu đề của danh sách hoạt động.
- Sau đó, nhấp chuột phải và chọn “Xem Cài đặt” từ menu ngữ cảnh.
- Sau đó, trong hộp thoại bật lên, nhấp vào nút “Nhóm theo”.
- Sau đó, trong một hộp thoại khác, hãy chọn “Lớp tin nhắn” trong danh sách thả xuống “Nhóm các mục theo”.
- Cuối cùng, nhấp vào một loạt “OK” để áp dụng cài đặt chế độ xem.
- Khi quay lại danh sách, bạn có thể thấy một nhóm có tên là “IPM.Cuộc hẹn” với tổng số tất cả các cuộc hẹn được liên kết với macro hiện tại, được hiển thị như ảnh chụp màn hình sau.
Phương pháp 2: Đếm với Outlook VBA
- Để bắt đầu, hãy truy cập trình soạn thảo Outlook VBA thông qua “Alt + F11”.
- Sau đó, sao chép mã VBA sau vào một mô-đun.
Dim objContact As ContactItem
Sub CountAppointmentsLinkedToContact()
Dim objStore As Store
Dim objOutlookFile As Folder
Dim lTotalCount As Long
'Get the contact
Set objContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
lTotalCount = 0
For Each objStore In Application.Session.Stores
Set objOutlookFile = objStore.GetRootFolder
Call ProcessFolders(objOutlookFile.Folders, lTotalCount)
Next
'Prompt you
If lTotalCount > 0 Then
MsgBox lTotalCount & " appointments are linked to " & objContact.FullName & ".", vbInformation + vbOKOnly
Else
MsgBox "No appointment is linked to " & objContact.FullName & ".", vbExclamation + vbOKOnly
End If
End Sub
Sub ProcessFolders(ByVal objFolders As Folders, lCount As Long)
Dim objFolder As Folder
Dim objItem As Object
'Process all folders recursively
For Each objFolder In objFolders
For Each objItem In objFolder.Items
If TypeOf objItem Is AppointmentItem Then
If objItem.Links.Count > 0 Then
i = 0
Do Until i = objItem.Links.Count
i = i + 1
If objItem.Links(i).Name = objContact.FullName Then
lCount = lCount + 1
Exit Do
End If
Loop
End If
End If
Next
If objFolder.Folders.Count > 0 Then
Call ProcessFolders(objFolder.Folders, lCount)
End If
Next
End Sub
- Sau đó, hãy thêm macro này vào Thanh công cụ truy cập nhanh (QAT) bằng cách làm theo các bước trong “Cách chạy mã VBA trong Outlook của bạn".
- Cuối cùng, bạn có thể thử nó.
- Trước hết, chọn một số liên lạc.
- Sau đó, nhấn nút macro trong QAT.
- Khi macro kết thúc, bạn sẽ nhận được thông báo về số lượng cuộc hẹn được liên kết với liên hệ đã chọn, như hình bên dưới.
Khi gặp các sự cố thường gặp về Outlook
Giả sử rằng bạn luôn gặp phải nhiều vấn đề khác nhau trong Outlook của mình, bạn nên nâng cao cảnh giác. Rất có thể tệp Outlook PST của bạn có xu hướng bị hỏng. Tại thời điểm này, bạn sẽ tạo bản sao lưu cập nhật cho tệp dữ liệu Outlook của mình cùng một lúc. Ngoài ra, nếu có thể, nên nắm giữ một quyền lực PST sửa chữa công cụ, chẳng hạn 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