Outlookカレンダーのリストビューにすべての誕生日イベントの対応する人の年齢を表示する方法

Outlookソリューション 2025 年 9 月 29 日

一部のユーザーは、カレンダーで誕生日イベントを表示するときに、対応する人の年齢も確認したいと考えています。したがって、この記事では、このアイデアを簡単に実現する方法を共有します。

連絡先に誕生日情報を追加すると、Outlookはカレンダーに誕生日イベントを自動的に作成します。このような状況では、カレンダーに誕生日イベントが表示されるたびに、対応する人の年齢を取得することもできます。そこで、ここではそれを実現する方法を紹介します。

リストビューにすべての誕生日イベントの対応する人の年齢を表示する

最初に、OutlookVBAエディターを起動します。
次に、次のコードをモジュールにコピーします。

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

その後、最初のサブルーチンにカーソルを置き、「F5」を押してこのマクロを実行します。
マクロが終了したら、VBAエディターを終了し、カレンダーフォルダーを開きます。
続いて、「表示」タブに移動し、「表示の変更」>「リスト」をクリックします。
次に、「表示設定」ボタンをクリックします。
ポップアップダイアログボックスで、「列」を選択します。
次に、「列の表示」の次のダイアログボックスで、「使用可能なフィールドの選択」のリストから「フォルダ内のユーザー定義フィールド」を選択します。
その後、「利用可能な列」ボックスの「年齢」を売り込み、「追加->」ボタンをクリックします。
最終的に、カレンダーアイテムリストに戻るまで、一連の「OK」をクリックします。
これで、次の図に示すように、リストにすべての誕生日イベントの人の年齢が表示されます。

侵害されたOutlookファイルを修正する

遭遇するとパニックになるかもしれません破損したOutlook あなたの貴重なメールやスケジュールがたくさん含まれているファイル。そのような問題はかなり絶望的ですが、それでもすぐに落ち着いて効果的な対策を検討する必要があります。心配し続けると、状況はますます悪化する可能性があります。実際には、受信トレイ修復ツールや、次のようなより堅牢で経験豊富なツールなど、破損したファイルを修復できる複数の方法とユーティリティがあります。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修正しますと見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com