Як пакетно імпортувати дні народження з робочого аркуша Excel до календаря Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо у вас є список даних про дні народження на аркуші Excel, можливо, ви захочете імпортувати ці дні народження до календаря Outlook як події. Ця стаття допоможе вам швидко її виконати.

З попередньої статті - “Як групово імпортувати дні народження з Excel до відповідних контактів Outlook”, ви можете дізнатися, як додати інформацію про день народження в Excel до відповідних контактів. Подібно до цього, деякі користувачі хотіли б створювати події дня народження Outlook із даних у аркуші Excel. Розглядаючи цю проблему, ми розкриємо ще один фрагмент коду VBA, який допоможе вам легко його отримати.

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

  1. Перш за все, відкрийте конкретний файл Excel. Мій зразок файлу Excel такий, як показано на наступному малюнку.Зразок робочого аркуша Excel
  2. Потім натисніть “Alt + F11”, щоб запустити редактор Excel VBA.
  3. Далі, у новому вікні «Microsoft Visual Basic for Applications» увімкніть посилання на «Бібліотеку об’єктів MS Outlook» відповідно до «Як додати посилання на бібліотеку об'єктів у 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

Код VBA - пакетний імпорт днів народження з Excel у календар календаря Outlook

Примітка: 1. Змініть конкретний аркуш відповідно до вашого випадку.

  1. Змініть відповідний діапазон комірок залежно від власного файлу Excel.
  2. Нарешті, натисніть клавішу “F5”, щоб запустити цей макрос.
  3. Коли макрос завершиться, ви зможете відкрити папку календаря за замовчуванням Outlook, в якій ви зможете побачити всі нові імпортовані події дня народження, наприклад, скріншот нижче.Події дня народження в календарі

Вразливі файли PST Outlook

Подібно до документів Word і книг Excel, фактично файли PST Outlook такі ж вразливі. Протягом багатьох років багато користувачів коли-небудь зазнавали пошкодження файлів Outlook. У такій ситуації їм доводиться пробувати вузлуватих Ремонт PST. Однак, як правило, вбудований інструмент виправлення - Scanpst завжди не може цього зробити. Отже, в цьому курсі дуже потрібен більш спеціалізований та найвищий зовнішній інструмент, такий як DataNumen Outlook Repair, який може допомогти вам отримати максимум даних із пошкодженого файлу PST.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.