ExcelワークシートからOutlookカレンダーに誕生日をバッチインポートする方法

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

Excelワークシートに誕生日情報のリストがある場合は、これらの誕生日をイベントとしてOutlookカレンダーにインポートすることをお勧めします。この記事では、それを短時間で達成するためのガイドを提供します。

前回の記事「Excelから対応するOutlookの連絡先に誕生日をバッチインポートする方法」から、Excelの誕生日情報を関連する連絡先に追加する方法を学ぶことができます。同様に、一部のユーザーは、ExcelシートのデータからOutlookの誕生日イベントを作成したいと考えています。この問題を見て、簡単に入手できるように、別のVBAコードを公開します。

誕生日をExcelからOutlookカレンダーにバッチインポート

まず第一に、特定のExcelファイルを開きます。サンプルのExcelファイルは次の図のようになります。
次に、「Alt + F11」を押して、ExcelVBAエディターをトリガーします。
次に、新しい「Microsoft Visual Basic for Applications」ウィンドウで、「MS Outlook Object Library」への参照を「VBAでオブジェクトライブラリ参照を追加する方法"
その後、次のVBAコードをプロジェクトまたはモジュールにコピーします。

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

メモ: 1.ケースに応じて特定のシートを変更します。

独自のExcelファイルに応じて、対応するセル範囲を変更します。
最後に、「F5」キーを直接押して、このマクロを実行します。
マクロが終了したら、Outlookの既定のカレンダーフォルダーを開くことができます。このフォルダーには、下のスクリーンショットのように、新しくインポートされたすべての誕生日イベントが表示されます。

脆弱なOutlookPSTファイル

Word文書やExcelブックと同様に、事実上、OutlookPSTファイルも同様に脆弱です。何年もの間、多くのユーザーがOutlookファイルの損傷を受けてきました。その状況では、彼らは節のある試みをしなければなりません PST修復。しかし、一般的に、組み込みの修正ツール–Scanpstは常にそれを達成することはできません。したがって、このコースでは、次のような、より専門的でトップランクの外部ツールが強く必要です。 DataNumen Outlook Repair、破損したPSTファイルから最大のデータを抽出するのに役立ちます。

著者紹介：

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