Làm cách nào để tính toán và hiển thị tuổi theo ngày sinh trên lịch Outlook?
Nói chung, ngày sinh của một liên hệ sẽ tự động được thêm vào như một cuộc hẹn định kỳ hàng năm trong lịch. Nhưng bạn có biết cách tính tuổi của người liên hệ và hiển thị tuổi trực tiếp trong chế độ xem lịch không? Bài viết này sẽ giới thiệu một VBA để tìm ra tuổi của từng liên hệ và hiển thị tuổi về chủ đề cuộc hẹn định kỳ tương đối trong Outlook.
Tính toán và hiển thị tuổi theo ngày sinh trên lịch Outlook
- Gửi email tự động với Auto CC / BCC, Tự động chuyển tiếp theo quy định; gửi Tự động trả lời (Vắng mặt) mà không cần máy chủ trao đổi...
- Nhận lời nhắc như Cảnh báo BCC khi trả lời tất cả khi bạn đang ở trong danh sách BCC và Nhắc nhở khi thiếu tệp đính kèm để quên các tệp đính kèm...
- Cải thiện hiệu quả email với Trả lời (Tất cả) kèm tệp đính kèm, Tự động thêm lời chào hoặc ngày và giờ vào chữ ký hoặc chủ đề, Trả lời nhiều emailhữu ích. Cảm ơn !
- Hợp lý hóa việc gửi email với Thu hồi email, Công cụ đính kèm (Nén tất cả, Tự động lưu tất cả...), Loại bỏ các bản saovà Báo cáo nhanhhữu ích. Cảm ơn !
Tính toán và hiển thị tuổi theo ngày sinh trên lịch Outlook
Để tính tuổi của mỗi liên hệ và hiển thị tuổi trong chủ đề cuộc hẹn định kỳ tương đối trong lịch Outlook, vui lòng thực hiện như sau:
1. Mở thư mục lịch mặc định và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ mô-đun mới.
VBA: Tính toán và hiển thị tuổi của các liên hệ trong lịch Outlook
Option Explicit
Public Sub UpdateAges()
Dim xOlApp As Outlook.Application
Dim xOlFolder As Outlook.Folder
Dim xOlItems As Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAge As Integer
Dim xOlProp As Outlook.UserProperty
Set xOlApp = Outlook.Application
Set xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Set xOlItems = xOlFolder.Items
For Each xAppointmentItem In xOlItems
If (InStr(1, xAppointmentItem.Subject, "Birthday") Or InStr(1, xAppointmentItem.Subject, "Anniversary")) And xAppointmentItem.IsRecurring = True Then
With xAppointmentItem
If xAppointmentItem.UserProperties("Original Subject") Is Nothing Then
Set xOlProp = xAppointmentItem.UserProperties.Add("Original Subject", olText, True)
xOlProp.Value = .Subject
.Save
End If
xAge = DateDiff("yyyy", .Start, Date)
.Subject = .UserProperties("Original Subject") & " (" & xAge & " in " & Format(Date, "yyyy") & ")"
.Save
End With
End If
Next
Set xAppointmentItem = Nothing
Set xOlItems = Nothing
Set xOlFolder = Nothing
Set xOlApp = Nothing
End Sub
3. Nhấn nút F5 chìa khóa hoặc chạy để chạy VBA này.
Khi bạn quay lại lịch mặc định, bạn sẽ thấy tuổi của mỗi liên hệ được tìm ra và hiển thị trong chủ đề của cuộc hẹn sinh nhật định kỳ. Xem ảnh chụp màn hình:
Chú ý:
(1) Trong chủ đề của cuộc hẹn sinh nhật định kỳ của một liên hệ nhất định, tuổi của liên hệ này được bao gồm trong dấu ngoặc đơn tương tự như (41 trong 2017), 41 là tuổi, và 2017 là năm hiện tại.
(2) Nếu bạn thay đổi ngày sinh của một liên hệ nhất định trong thư mục liên hệ, tuổi sẽ tự động bị xóa khỏi lịch.
(3) VBA này chỉ hoạt động với lịch Outlook mặc định.
Bài viết liên quan
Xuất ngày sinh của tất cả các liên hệ từ Outlook
Xóa hoặc xóa tất cả lịch sinh nhật cùng một lúc trong Outlook
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.