Как импортировать дни рождения из 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, чтобы просмотреть результат, см. снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.




