Как создать напоминания Outlook из электронной таблицы Excel?
В этой статье рассказывается о создании напоминаний Outlook на основе данных электронной таблицы Excel.
Напоминания Crete Outlook из электронной таблицы Excel с кодом VBA
Создавайте напоминания Outlook из электронной таблицы Excel с кодом VBA
Если вы хотите создавать напоминания Outlook из Excel, сделайте следующее.
1. Создайте рабочий лист, содержащий заголовки столбцов и соответствующие поля для напоминаний, как показано ниже.
Внимание: Для статус занятости столбец, номер 2 означает, что напоминание будет отображаться как Занятый в вашем календаре Outlook. Вы можете изменить его на 1 (ориентировочно), 3 (Вне офиса), 4 (работает в другом месте)или 5 (бесплатно) как вам нужно.
2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
3. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно кода.
Код VBA: создание напоминаний Outlook из электронной таблицы Excel
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
Внимание: В приведенном выше коде A2: G2 - это диапазон данных, на основе которого вы хотите создавать встречи.
4. нажмите F5 или нажмите кнопку «Выполнить», чтобы запустить код. Тогда все встречи с определенными полями будут сразу вставлены в календарь вашего Outlook.
А затем вы можете перейти в Календарь вашего Outlook, чтобы просмотреть результаты, см. Снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.