각 연락처의 나이를 계산하고 Outlook 일정에서 상대적 반복 약속의 제목에 나이를 표시하려면 다음과 같이하십시오.

1. 기본 캘린더 폴더를 열고 다른 + 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의 2017), 41 나이이고 2017 현재 연도입니다.
(2) 연락처 폴더에서 특정 연락처의 생일을 변경하면 자동으로 캘린더에서 나이가 삭제됩니다.
(3)이 VBA는 기본 Outlook 일정에서만 작동합니다.

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

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