如何將生日從 Excel 導入 Outlook 日曆？

如果您在工作表中有很長的生日信息列表，現在您希望將這些生日作為事件導入您的 Outlook 日曆。你怎麼能用一些快速的方法來處理這個任務？

使用 VBA 代碼將生日從 Excel 導入 Outlook 日曆

通常情況下，沒有直接將生日導入 Outlook 日曆的方法，在這裡，我將創建一個 VBA 代碼來解決這個問題，請按照以下步驟操作：

1. 打開包含要導入 Outlook 的生日的工作表，然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

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 for Applications 窗口中，單擊工具 > 參考. 在彈出的 參考– VBAProject 對話框，檢查 Microsoft Outlook 16.0 對像庫 選項形式 可用參考 列錶框，請參見屏幕截圖：