Создание Reminder в Outlook

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Создание Reminder в Outlook (Макросы/Sub)

Oh_Nick

Дата: Пятница, 01.10.2021, 15:51 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Всем доброго времени суток!

На просторах интернета нашел следующий код, который создает напоминания в Outlook:

[vba]

Код

Sub Outloook_Reminders()
Sheets("renewals").Select
     Dim startRow As Long, endRow As Long, ctr As Long

     startRow = 2
     endRow = Cells(Rows.Count, 1).End(xlUp).Row

     For ctr = startRow To endRow
        With CreateObject("Outlook.application").createitem(1)
        On Error Resume Next
            .Start = DateValue(Range("C" & ctr)) + TimeValue(Range("C" & ctr))
            .Duration = CLng(Range("D" & ctr)) ' 30
            .Subject = CStr(Range("E" & ctr)) ' subject text
            .ReminderSet = True
            .Save
        End With
     Next
End Sub

[/vba]

Также имеется таблица на листе TaskBook. Нужно, чтобы Reminder создавался по заполнению этой таблицы

Вводится Header , Задача, Дата начала и Дата напоминания со времени.

Помогите преобразить под эту таблицу.