Outlook 캘린더에서 생일을 기준으로 나이를 계산하고 표시하는 방법은 무엇인가요？

Outlook 캘린더에서 각 연락처의 나이를 계산하고 관련 반복 약속의 제목에 나이를 표시하려면 다음 단계를 따르세요。

1. 기본 캘린더 폴더를 열고 「Alt」 + “F11" 키를 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「삽입」 > 「모듈」을 클릭한 후 다음 VBA 코드를 새 모듈 창에 붙여넣습니다。

VBA： 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. "F5"를 누르거나 「실행」 버튼을 클릭하여 VBA 를 실행합니다。

기본 캘린더로 돌아가면 각 연락처의 나이가 계산되어 반복되는 생일 약속의 제목에 표시된 것을 확인할 수 있습니다。 스크린샷 참조：

참고 사항：
(1) 연락처의 반복 생일 약속 제목에는 괄호 안에 연락처의 나이가 표시됩니다(예: (41 in 2017)). 여기서 41 은 나이이고, 2017 은 현재 연도입니다。
(2) 연락처 폴더에서 연락처의 생일을 변경하면 캘린더에 표시된 나이는 자동으로 제거됩니다。
(3) 이 VBA 는 기본 Outlook 캘린더에서만 작동합니다。

Outlook 에서 모든 연락처의 생일 내보내기

Outlook 에서 모든 생일 캘린더를 한 번에 제거 또는 삭제하기