誕生日を Excel から Outlook カレンダーにインポートする方法

ワークシートに誕生日情報の長いリストがある場合、これらの誕生日をイベントとして Outlook カレンダーにインポートする必要があります。いくつかの簡単な方法を使用して、このタスクをどのように処理できますか?

VBA コードを使用して Excel から Outlook カレンダーに誕生日をインポートする

通常、誕生日を Outlook カレンダーに直接インポートする方法はありません。ここでは、この問題を解決する VBA コードを作成します。次の手順に従ってください。

1. Outlook にインポートする誕生日を含むワークシートを開き、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBA コード: 誕生日を Outlook カレンダーにインポートする

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3。まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック工具 > リファレンス. 飛び出した中で 参照– VBAProject ダイアログボックス、チェック Microsoft Outlook16.0オブジェクトライブラリ オプションフォーム 利用可能な参考文献 リストボックス、スクリーンショットを参照：

4。次に、をクリックします OK このダイアログボックスを閉じます。今、押してください F5 キーを押してこのコードを実行すると、プロンプトボックスが表示されます。名前と誕生日の列を選択してください。スクリーンショットを参照してください。

5。次に、をクリックします OK ボタンをクリックすると、誕生日が一度に Outlook カレンダーにインポートされます。Outlook を起動して結果を表示できます。スクリーンショットを参照してください。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！

自動CC / BCC メール送信時のルールによる。自動転送カスタムによる複数の電子メール。自動返信 Exchangeサーバーなし、およびより多くの自動機能...
BCC警告 -全員に返信しようとするとメッセージを表示するメールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信するすぐに; あいさつを自動追加返信するとき; 件名に日付を追加...
添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、選択したメールを数える...
強力な迷惑メール習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。