Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание Reminder в Outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Создание Reminder в Outlook (Макросы/Sub)
Создание Reminder в Outlook
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 , Задача, Дата начала и Дата напоминания со времени.

Помогите преобразить под эту таблицу.
К сообщению приложен файл: Outlook_Reminde.xlsm (28.8 Kb)
 
Ответить
СообщениеВсем доброго времени суток!

На просторах интернета нашел следующий код, который создает напоминания в 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 , Задача, Дата начала и Дата напоминания со времени.

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

Автор - Oh_Nick
Дата добавления - 01.10.2021 в 15:51
Oh_Nick Дата: Пятница, 01.10.2021, 15:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Т.е Reminder создается, но нужно, чтобы он создавался на определенную почту, которую мы введем в ячейку.
 
Ответить
СообщениеТ.е Reminder создается, но нужно, чтобы он создавался на определенную почту, которую мы введем в ячейку.

Автор - Oh_Nick
Дата добавления - 01.10.2021 в 15:56
Oh_Nick Дата: Суббота, 02.10.2021, 16:01 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Создал тему в платной ветке. Эту можно удалять.
 
Ответить
СообщениеСоздал тему в платной ветке. Эту можно удалять.

Автор - Oh_Nick
Дата добавления - 02.10.2021 в 16:01
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Создание Reminder в Outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!