Как создать напоминания в Outlook из таблицы Excel?
В этой статье рассказывается о создании напоминаний в Outlook на основе данных таблицы Excel.
Создание напоминаний в Outlook из таблицы Excel с помощью кода VBA
Создание напоминаний в Outlook из таблицы Excel с помощью кода VBA
Если вы хотите создать напоминания в Outlook из Excel, выполните следующие действия.
1. Создайте рабочий лист, содержащий заголовки столбцов и соответствующие поля напоминаний, как показано на скриншоте ниже.
Примечание: Для столбца "статус занятости" число "2" означает, что напоминание будет отображаться как "Занято" в вашем календаре Outlook. Вы можете изменить его на "1 (Предварительно занято)", "3 (Вне офиса)", "4 (Работа в другом месте)", или "5 (бесплатно)" по мере необходимости.
2. Нажмите клавиши "Alt" + "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, чтобы просмотреть результаты. См. скриншот:
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
