Как импортировать дни рождения из Excel в календарь Outlook?

Если у вас есть длинный список информации о днях рождения на листе, теперь вы хотите импортировать эти дни рождения в свой календарь Outlook как события. Как вы могли бы справиться с этой задачей с помощью некоторых быстрых методов?

Импорт дней рождения из Excel в календарь Outlook с кодом VBA

Обычно нет прямого способа импортировать дни рождения в календарь Outlook, здесь я создам код VBA для решения этой проблемы, выполните следующие действия:

1. Откройте рабочий лист, содержащий дни рождения, которые вы хотите импортировать в Outlook, а затем нажмите и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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 для приложений окна, нажмите Tools > Рекомендации. В выскочившем Ссылки - VBAProject диалоговое окно, отметьте Библиотека объектов Microsoft Outlook 16.0 вариант формы Доступные ссылки список, см. снимок экрана:

4. Затем нажмите OK чтобы закрыть это диалоговое окно. Теперь нажмите F5 ключ для запуска этого кода, и появится окно подсказки, выберите столбцы имени и дня рождения, см. снимок экрана:

5. А затем нажмите OK кнопка, дни рождения будут сразу импортированы в календарь Outlook, вы можете запустить свой Outlook, чтобы просмотреть результат, см. снимок экрана: