Đôi khi, bạn có thể muốn đếm tuổi của các liên hệ Outlook của mình. Nhưng Outlook không có chức năng này và việc đếm thủ công sẽ dễ bị lỗi. Vì vậy, bài viết này sẽ giới thiệu cho bạn 2 cách tiếp cận nhanh thông qua Outlook VBA.
Khi tạo danh bạ Outlook mới, bạn có thể nhập ngày sinh của danh bạ. Sau đó, Outlook sẽ tự động tạo các sự kiện sinh nhật định kỳ theo lịch của bạn. Vì vậy, khi sinh nhật của bất kỳ ai đến, bạn sẽ nhận được lời nhắc. Tại thời điểm này, bạn phải muốn biết tuổi của liên hệ. Nhưng Outlook không có tính năng gốc để đếm tuổi của liên hệ. May mắn thay, chúng ta có thể sử dụng Outlook VBA để tải nó bằng utmost giảm bớt.
Phương pháp 1: Lấy tuổi của một liên hệ Outlook cụ thể
- Để start bằng, khởi chạy Outlook và nhấn các nút phím “Alt + F11”.
- Sau đó, trong cửa sổ “Microsoft Visual Basic for Applications” mới, bạn phải mở một mô-đun mới và sao chép các mã VBA sau vào đó.
Sub CountContactAge()
Dim olContact As ContactItem
Dim bDay As Date
Dim Age As Integer
Dim strMsg As String
Dim nRes As Integer
Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
If TypeName(olContact) = "ContactItem" Then
If olContact.Birthday <> #1/1/4501# Then
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
strMsg = olContact.FullName & " is " & Age & " years old now."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
Else
strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
End If
End If
End Sub
- Sau đó, bạn có thể thoát khỏi cửa sổ hiện tại và thêm macro mới vào Thanh công cụ truy cập nhanh như bình thường.
- Sau đó, bạn có thể truy cập thư mục Danh bạ của mình và chọn liên hệ cụ thể rồi nhấn nút macro trong Thanh công cụ truy cập nhanh.
- Cuối cùng, bạn có thể nhận được các kết quả sau:
- Nếu bạn chưa nhập ngày sinh của liên hệ, bạn sẽ nhận được cảnh báo như hình sau:
- Nếu bạn đã nhập ngày sinh của liên hệ, bạn sẽ nhận được một hộp thoại cho bạn biết tuổi của liên hệ, giống như hình ảnh bên dưới:
Phương pháp 1 sẽ rất tẻ nhạt nếu bạn muốn biết tuổi của một số hoặc tất cả các liên hệ của mình. Do đó, vui lòng đọc tiếp để sử dụng Phương pháp 2.
Phương pháp 2: Nhanh chóng lấy tuổi của tất cả các liên hệ trong Outlook
- Lúc đầu, hãy chuyển đến ngăn Danh bạ và nhấn nút “Chế độ xem Cài đặt” trên tab “Chế độ xem”.
- Trong hộp thoại “Cài đặt chế độ xem nâng cao” mới, hãy nhấn nút “Cột”.
- Sau đó, trong hộp thoại “Hiển thị cột”, nhấn nút “Cột mới”. Trong hộp thoại “Cột mới”, nhập “Tuổi” vào hộp “Tên” rồi nhấn “OK”.
- Sau đó, nhấp vào một loạt “OK” để quay lại cửa sổ chính của Outlook.
- Sau đó, nhấn “Alt + F11” để mở cửa sổ “Visual Basic” và sao chép các mã sau vào một mô-đun mới.
Sub AddAgeColumn()
Dim obj As Object
Dim olContact As Object
Dim olProp As Outlook.UserProperty
Dim bDay As Date
Dim Age
On Error Resume Next
For Each obj In Application.ActiveExplorer.Selection
If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
Set olContact = obj
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
Set olProp = olContact.UserProperties.Add("Age", olText, True)
olProp.Value = Age
olContact.Save
End If
Err.Clear
Next
End Sub
- Sau đó, bạn có thể thêm macro mới vào Thanh công cụ truy cập nhanh.
- Cuối cùng, chọn tất cả các liên hệ bằng cách “Ctrl + A” và nhấn nút macro trong Thanh công cụ truy cập nhanh. Bạn sẽ nhận được tất cả tuổi của các liên hệ, ngoại trừ những người không có ngày sinh nhật, như hình dưới đây:
Cẩn thận với rủi ro xung quanh dữ liệu Outlook của bạn
Outlook dễ bị tham nhũng. Do đó, bạn nên theo dõi tất cả các mối nguy hiểm xung quanh dữ liệu Outlook của mình. Chúng thường là virus, phần mềm độc hại, sự cố mất điện và lỗi của con người, v.v. Ngoài ra, để đảm bảo rằng bạn có thể nhanh chóng sửa lỗi dữ liệu Outlook PST, tốt hơn hết bạn nên giữ một công cụ sửa chữa có kinh nghiệm ở gần, 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 sửa chữa tệp SQL bị hỏng 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