Задать вопрос
neversaymoo
@neversaymoo
автоматизация

Есть ли возможность создать VBA макрос для OUTLOOK с условием по времени и дню недели?

Добрый день!
В MS Outlook, к сожалению, нет возможности создать правило с временным условием.
К примеру, нужно переслать письма, полученные с 7 вечера до 8 утра, но, в то же время, действие должно выполняться для всех писем круглые сутки в выходные (с 7 вечера пятницы до 8 утра понедельника).

В интернете найдена возможность фильтрации по времени при помощи макроса:
Public WithEvents myOlItems As Outlook.Items
 Public Sub Application_Startup()
    Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
 End Sub
 Private Sub myOlItems_ItemAdd(ByVal Item As Object)
    If Time() < #8:00:00 AM# Or Time() > #7:00:00 PM# Then
       If TypeName(Item) = "MailItem" Then
          Set myForward = Item.Forward
          myForward.Recipients.Add "support@domen.ru"
          myForward.Send
       End If
    End If
 End Sub


Есть ли возможность прикрутить к нему условие с учетом выходных (отмечено курсивом)?
  • Вопрос задан
  • 935 просмотров
Комментировать
Подписаться 3 Оценить Комментировать
Решения вопроса 1
neversaymoo
@neversaymoo Автор вопроса
Допилил своими силами.
Если кому интересно:
Public WithEvents myOlItems As Outlook.Items
 Public Sub Application_Startup()
    Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
 End Sub
 Private Sub myOlItems_ItemAdd(ByVal Item As Object)
    If (WeekDay(checkindate) = 1 or 7) or (Time() < #9:00:00 AM# Or Time() > #5:00:00 PM#) Then
       If TypeName(Item) = "MailItem" Then
          Set myForward = Item.Forward
          myForward.Recipients.Add "support@domen.ru"
          myForward.Send
       End If
    End If
 End Sub
Ответ написан
Комментировать
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Инженер по автоматизации тестирования
SpectrumData • Екатеринбург
от 150 000 ₽
Auto QA СберДруг
Сбер • Москва
от 200 000 ₽
QA инженер в iOSCore команду
ГК «МЕДСИ» • Москва
от 160 000 до 220 000 ₽
Ещё вакансии
Заказы с Хабр Фриланса
Разработка сайта на ЦМС битрикс
18 апр. 2024, в 17:50
100000 руб./за проект
Разработка дизайна мобилного приложения iOS
18 апр. 2024, в 17:43
40000 руб./за проект
Разработать заготовку мультиплатформенного десктопного приложения
18 апр. 2024, в 17:30
80000 руб./за проект
Ещё заказы