아웃룩 캘린더에서 생일로 나이를 계산하고 표시하는 방법은 무엇입니까?
일반적으로 연락처의 생일은 자동으로 매년 반복되는 일정으로 캘린더에 추가됩니다. 그러나 연락처의 나이를 계산하고 이를 캘린더 보기에서 직접 표시하는 방법을 알고 있습니까? 이 문서에서는 각 연락처의 나이를 계산하고 아웃룩에서 관련 반복 일정의 제목에 표시하는 VBA 방법을 소개합니다.

아웃룩 캘린더에서 생일로 나이 계산 및 표시하기
각 연락처의 나이를 계산하고 아웃룩 캘린더에서 관련 반복 일정의 제목에 나이를 표시하려면 다음 단계를 따르세요:
1. 기본 캘린더 폴더를 열고 "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.
2. "삽입" > "모듈"을 클릭한 다음, 새 모듈 창에 아래 VBA 코드를 붙여넣습니다.
VBA: 아웃룩 캘린더에서 연락처의 나이 계산 및 표시하기
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) 연락처의 반복되는 생일 일정 제목에서, 연락처의 나이는 괄호 안에 표시됩니다. 예: (2017년 기준 41세), 여기서 41은 나이이고 2017은 현재 연도입니다.
(2) 연락처 폴더에서 연락처의 생일을 변경하면, 캘린더에 표시된 나이는 자동으로 삭제됩니다.
(3) 이 VBA는 기본 아웃룩 캘린더에서만 작동합니다.
관련 기사
최고의 오피스 생산성 도구
속보: Kutools for Outlook 무료 버전 출시!
새롭게 달라진 Kutools for Outlook에서100가지 이상의 놀라운 기능을 경험해보세요! 지금 다운로드하세요!
🤖 Kutools AI : 첨단 AI 기술을 활용해 이메일을 손쉽게 처리합니다. 회신, 요약, 최적화, 확장, 번역, 작성까지 모두 지원합니다.
📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 보내기 예약 / 이메일 전송 시 규칙별 자동 참조/숨은 참조 / 자동 전달(고급 규칙) / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...
📨 이메일 관리: 이메일 회수 / 제목 및 기타 기준으로 의심스러운 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 정리 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 다양한 이모지 / 중요한 이메일이 오면 알림 / Outlook 종료 대신 최소화 ...
👍 원클릭 기능: 모두 회신 (첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
원하는 언어로 Kutools를 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40가지 이상을 지원합니다!
한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고 지금 다운로드하여 업무 효율을 높여보세요!


🚀 원클릭 다운로드 — 모든 Office 추가 기능 받기
강력 추천: Kutools for Office (5-in-1)
한 번의 클릭으로 다섯 종류의 설치 파일을 동시에 다운로드하세요 — Kutools for Excel, Outlook, Word, PowerPoint 및 Office Tab Pro. 지금 다운로드하세요!
- ✅ 원클릭 편리함: 다섯 가지 설치 패키지를 단 한 번에 다운로드할 수 있습니다.
- 🚀 모든 Office 작업에 바로 준비 완료: 필요한 추가 기능을 원하는 때에 설치하세요.
- 🧰 포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint