Outlookの連絡先の年齢を取得するための2つの簡単な方法

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

Outlookの連絡先の年齢を数えたい場合があります。ただし、Outlookにはこの機能がなく、手動でカウントするとエラーが発生しやすくなります。したがって、この記事では、OutlookVBAを介した2つの簡単なアプローチを紹介します。

Outlook で新しい連絡先を作成する際、連絡先の誕生日を入力できます。すると、Outlook は自動的にカレンダーに誕生日の繰り返しイベントを作成します。そのため、誰かの誕生日が来ると、リマインダーが届きます。この時点で、連絡先の年齢を知りたいと思うでしょう。しかし、Outlook には連絡先の年齢を計算するネイティブ機能はありません。幸いなことに、Outlook VBA を使用すれば、非常に簡単に年齢を取得できます。

方法1：特定のOutlook連絡先の年齢を取得する

まず、Outlookを起動し、「Alt + F11」キーを押してください。
次に、新しい「Microsoft Visual Basic for Applications」ウィンドウで、新しいモジュールを開き、次のVBAコードをそのモジュールにコピーする必要があります。

Sub CountContactAge()
    Dim olContact As ContactItem
    Dim bDay As Date
    Dim Age As Integer
    Dim strMsg As String
    Dim nRes As Integer
 
    Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    If TypeName(olContact) = "ContactItem" Then
       If olContact.Birthday <> #1/1/4501# Then
          bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
          Age = DateDiff("yyyy", olContact.Birthday, bDay)
          strMsg = olContact.FullName & " is " & Age & " years old now."
          nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
       Else
          strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
          nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
       End If
    End If
End Sub

その後、通常どおり、現在のウィンドウを終了して、新しいマクロをクイックアクセスツールバーに追加できます。
その後、連絡先フォルダにアクセスして特定の連絡先を選択し、クイックアクセスツールバーのマクロボタンを押すことができます。
最後に、次の結果が得られる場合があります。

連絡先の誕生日を入力していない場合は、次の画像のようなアラートが表示されます。
連絡先の誕生日を入力すると、次の画像のように、連絡先の年齢を示すダイアログボックスが表示されます。

連絡先の年齢を複数またはすべて取得したい場合、方法1は面倒です。したがって、方法2を使用するために読んでください。

方法2：すべてのOutlook連絡先の年齢をすばやく取得する

まず、連絡先ペインに移動し、「表示」タブの「表示設定」ボタンを押します。
新しい「詳細ビュー設定」ダイアログボックスで、「列」ボタンを押します。
次に、[列の表示]ダイアログボックスで、[新しい列]ボタンを押します。 [新しい列]ダイアログで、[名前]ボックスに「年齢」と入力し、[OK]をクリックします。
その後、一連の「OK」をクリックして、Outlookのメインウィンドウに戻ります。
続いて、「Alt + F11」を押して「VisualBasic」ウィンドウを開き、次のコードを新しいモジュールにコピーします。

Sub AddAgeColumn()
    Dim obj As Object
    Dim olContact As Object
    Dim olProp As Outlook.UserProperty
    Dim bDay As Date
    Dim Age
 
    On Error Resume Next
 
    For Each obj In Application.ActiveExplorer.Selection
        If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
           Set olContact = obj
           bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
           Age = DateDiff("yyyy", olContact.Birthday, bDay)
           Set olProp = olContact.UserProperties.Add("Age", olText, True)
           olProp.Value = Age
           olContact.Save
        End If
        Err.Clear
    Next
End Sub

後で、新しいマクロをクイックアクセスツールバーに追加できます。
最終的に「Ctrl + A」ですべての連絡先を選択し、クイックアクセスツールバーのマクロボタンを押します。下の写真のように、誕生日が記入されていない連絡先を除いて、すべての連絡先の年齢が表示されます。

Outlookデータに関するリスクに注意してください

Outlookは破損しがちです。したがって、Outlookデータの周りのすべての危険を監視する必要があります。それらは通常、ウイルス、マルウェア、停電、人為的エラーなどです。さらに、迅速に実行できるようにするため OutlookPSTデータの破損を修復します、次のような経験豊富な修理ツールを近くに置いておくとよいでしょう。 DataNumen Outlook Repair.

著者紹介：

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