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

Если у вас есть список сведений о днях рождения на листе Excel, вы можете импортировать эти дни рождения в календарь Outlook как события. Эта статья поможет вам сделать это в кратчайшие сроки.

Из предыдущей статьи «Как выполнить пакетный импорт дней рождения из Excel в соответствующие контакты Outlook» вы можете узнать, как добавить информацию о дне рождения в Excel к соответствующим контактам. Аналогично этому, некоторые пользователи хотели бы создавать события дня рождения Outlook из данных на листе Excel. Рассматривая эту проблему, мы представим еще один фрагмент кода VBA, который поможет вам легко его получить.

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

1. Во-первых, откройте конкретный файл Excel. Мой образец файла Excel показан на следующем рисунке.
2. Затем нажмите «Alt + F11», чтобы вызвать редактор Excel VBA.
3. Затем в новом окне «Microsoft Visual Basic для приложений» включите ссылку на «MS Outlook Object Lib».rarу» в соответствии с «Как добавить объектную библиотекуrary Ссылка в VBA».
4. После этого скопируйте следующий код 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. Измените конкретный лист в соответствии с вашим случаем.

2. Измените соответствующий диапазон ячеек в зависимости от вашего собственного файла Excel.
3. Наконец, напрямую нажмите клавишу «F5», чтобы запустить этот макрос.
4. Когда макрос завершится, вы можете открыть папку календаря Outlook по умолчанию, в которой вы можете увидеть все новые импортированные события дня рождения, как показано на снимке экрана ниже.

Уязвимые файлы Outlook PST

Как и документы Word и книги Excel, PST-файлы Outlook практически одинаково уязвимы. В течение многих лет многие пользователи когда-либо подвергались повреждению файлов Outlook. В этой ситуации они должны попытаться ремонт PST. Но, как правило, встроенный инструмент исправления — Scanpst всегда не может это сделать. Следовательно, в этом курсе крайне необходим более специализированный и высококлассный внешний инструмент, такой как DataNumen Outlook Repair, который может помочь вам извлечь максимум данных из поврежденного файла PST.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com