Как создать напоминания в 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 и ознакомиться с результатами. См. снимок экрана: