Outlook 일정의 목록보기에서 모든 생일 이벤트에 대한 해당 사람의 나이를 표시하는 방법

일부 사용자는 달력에서 생일 이벤트를 볼 때 해당 사람의 나이도보고 싶어합니다. 따라서이 기사에서는이 아이디어를 쉽게 실현할 수있는 방법을 공유 할 것입니다.

연락처에 생일 정보를 추가하면 Outlook이 자동으로 일정에 생일 이벤트를 만듭니다. 이런 상황에서 달력에서 생일 이벤트를 볼 때마다 해당하는 사람의 나이를 알고 싶을 수도 있습니다. 따라서 여기서 우리는 그것을 실현하는 방법을 소개합니다.

목록보기에서 모든 생일 이벤트에 대한 해당 개인의 나이 표시

1. 처음에는 Outlook VBA 편집기를 시작하십시오.
2. 그런 다음 다음 코드를 모듈에 복사하십시오.

Sub ShowAgesOfBirthdayEventsListView()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process All Calendar Folders in Your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Integer
    Dim objItem As Object
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim dStart, dBirth As Date
    Dim nAge As Integer
    Dim objNewProperty As Outlook.UserProperty
    Dim objSubCalendar As Outlook.Folder

    For i = objCalendar.Items.Count To 1 Step -1
        Set objItem = objCalendar.Items.Item(i)
        'Add "Age" Property to Birthday Events
        If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
           Set objBirthdayEvent = objItem
           dStart = objBirthdayEvent.Start
 
           'Count Age
           dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
           nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
 
           Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
           If objNewProperty Is Nothing Then
              Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
           End If
 
           objNewProperty.value = nAge
           objBirthdayEvent.Save
        End If
    Next
 
    'Process All Sub-Calendar Folders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. 그 후 커서를 첫 번째 서브 루틴에 놓고 "F5"를 눌러이 매크로를 실행합니다.
4. 매크로가 완료되면 VBA 편집기를 종료하고 달력 폴더를 엽니 다.
5. 그런 다음 "보기"탭으로 이동하여 "보기 변경"> "목록"을 클릭합니다.
6. 다음으로“설정보기”버튼을 클릭합니다.
7. 팝업 대화 상자에서 "열"을 선택합니다.
8. 그런 다음 "열 표시"의 다음 대화 상자에서 "다음에서 사용 가능한 필드 선택"목록에서 "폴더의 사용자 정의 필드"를 선택합니다.
9. 나중에 "사용 가능한 열"상자에서 "연령"을 입력하고 "추가->"버튼을 클릭합니다.
10. 결국 일정 항목 목록으로 돌아갈 때까지 일련의 "확인"을 클릭합니다.
11. 이제 목록에서 다음 그림과 같이 모든 생일 이벤트의 사람 나이를 볼 수 있습니다.

손상된 Outlook 파일 수정

만날 때 당황 할 수 있습니다. 손상된 Outlook 귀중한 이메일과 일정이 많이 포함 된 파일. 그러한 문제가 매우 절실한데도 불구하고 당신은 여전히 ​​즉시 진정하고 효과적인 조치를 고려해야합니다. 계속 걱정하면 상황이 더욱 악화 될 수 있습니다. 사실,받은 편지함 복구 도구 및 더 강력하고 경험이 풍부한 도구와 같이 손상된 파일을 복구 할 수있는 여러 가지 방법과 유틸리티가 있습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL Server 고정 된 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM