메인 컨텐츠로 가기

Outlook 일정에서 생일별로 연령을 계산하고 표시하는 방법은 무엇입니까?

저자: 켈리 최종 수정 날짜: 2017-08-07

일반적으로 연락처의 생일은 달력에서 매년 반복되는 약속으로 자동 추가됩니다. 하지만 연락처의 나이를 계산하고 달력보기에 직접 나이를 표시하는 방법을 알고 있습니까? 이 기사에서는 각 연락처의 나이를 파악하고 Outlook에서 상대적으로 되풀이되는 약속의 주제에 대한 나이를 표시하는 VBA를 소개합니다.

Outlook 일정에서 생일별로 나이 계산 및 표시

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools 잠금 해제 비어 있는 버전 지금 무제한으로 영원히 액세스할 수 있는 70개 이상의 기능을 즐겨보세요
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 70개 이상의 강력한 기능을 즐기고 이메일 경험을 향상시켜보세요!

화살표 블루 오른쪽 거품Outlook 일정에서 생일별로 나이 계산 및 표시

각 연락처의 나이를 계산하고 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용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "

Could you please translate this line for me? TIA
This comment was minimized by the moderator on the site
If possible, could you please give the above directive for auto-count in English??

Danke
This comment was minimized by the moderator on the site
Is there a way to set this up without using the birthday feature of the contact card?

On recurring could you set this up to show the number of years?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations