Подпись Outlook по времени

Question

Подпись Outlook по времени

Добрый день,

В настоящее время у меня есть клиент, который испытывает некоторые проблемы с его подписями в Outlook.

В рамках своей деятельности к нижней части его подписи прикреплен отказ от ответственности, в котором говорится, что электронное письмо было отправлено в рабочее время.

Он пытается выяснить, есть ли какой-то способ, кроме ручного выбора между двумя сигнатурами электронной почты, автоматически использовать подпись при ответе / отправке электронных писем в определенные моменты времени и другую публикацию в те времена.

Насколько я знаю, и те, с кем я работаю, невозможны, однако я подумал, что задам вопрос на всякий случай.

0

windows microsoft-outlook signature

Источник

KHes 13 ноя '18 в 04:23

1 ответ

Решение

Другие вопросы по тегам windows microsoft-outlook signature

El8dN8 13 ноя '18 в 06:41 2018-11-13 06:41 · Accepted Answer · 2018-11-13 06:41

Вот макрос, который должен быть в состоянии выполнить работу, которую вы ищете; просто измените его по своему вкусу.

Public Sub CreateMessageSignature()
    Dim objMsg As MailItem
    Dim theDay As Integer
    Dim hoursStart, hoursEnd As Double
    Dim custom As String
    Set objMsg = Application.CreateItem(MailItem)
    theDay = Weekday(Now)
    hoursStart = TimeValue("8:00:00 am")
    hoursEnd = TimeValue("4:30:00 pm")
    custom = "This message is sent out of office hours."
    If theDay > 1 And theDay < 7 Then ' Mon-Fri
        If Now > hoursStart And Now < hoursEnd Then ' The current time is between office hours
           custom = "This message is sent during office hours."
        End If
    End If
    With objMsg
      .HTMLBody = "Greetings,<br><br>&emsp;Sincerely,<br><br>John Smith<br>contact@example.com<br>(123)-456-7890<br>" & custom & strBuffer
      .Display
    End With

End Sub

Если вы не знаете, как его настроить:

Включите меню "Разработчик" в Outlook: "Файл" → "Параметры" → "Лента" → "Пузырь" в меню "Разработчик".
Создайте макрос: Меню разработчика → Макросы → Введите имя, в частности CreateMessageSignature (если вы не хотите переименовать функцию, которую можете) → Нажмите "Создать" → Скопируйте и вставьте макрос (остерегайтесь отступов) → Измените по своему вкусу → Сохранить (Ctrl+S)
Теперь добавьте кнопку в раздел "Главная" на ленте: "Файл" → "Параметры" → "Настройка ленты". Создайте новую группу в "Дом (почта)", назовите ее по своему вкусу → Выберите ее и с правой стороны найдите макрос, который вы только что сделали. и нажмите "Добавить".

Удачи!