Программно ответить на электронное письмо в Outlook

Я пишу скрипт, который отвечает на каждое входящее письмо.

Я сделал правило для всех входящих сообщений, которое запускает скрипт, устанавливает категорию и помечает как прочитанное. Правило устанавливает категорию и помечает как прочитанное, но не запускает скрипт. Ниже мой код:

Sub reply(Item As Outlook.MailItem)

    MsgBox "Hey this script is running!"

    On Error GoTo ErrorTrap

    Dim MsgReply As Outlook.MailItem
    Set MsgReply = Item.reply
    With MsgReply
        .Subject = "Welcome to IT Business Builder"
        .HTMLBody = "This is just a test"
        .Body = "This is just a test"
        .Send
    End With
    Set MsgReply = Nothing
ErrorTrap:
    MsgBox Err.Number & " " & Err.Description & " message not sent because of error"

End Sub

После запуска правила окно сообщения не появляется, электронные письма не отправляются.


outlook vba outlook-2010
person apatton.cnet    schedule 05.03.2013    source источник
comment
Не уверен, что это сработает, но попробуйте добавить .Save перед .Send.   -  person enderland    schedule 06.03.2013

Ответы (1)


arrow_upward
1
arrow_downward

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

Нажмите здесь, чтобы узнать, как это настроить

Если кратко подытожить...

  1. Создайте новое сообщение с темой и текстом, которое вы хотите отправить в качестве автоответчика.
  2. Нажмите «Файл» (в Outlook 2007 нажмите кнопку «Офис») > «Сохранить как».
  3. В диалоговом окне «Сохранить как» выберите «Шаблон Outlook» в раскрывающемся списке «Тип файла», а затем нажмите кнопку «Сохранить».
  4. Закройте сообщение напрямую. Если вы используете Outlook 2010, 2013 и 2016, нажмите Главная > Правила > Управление правилами и оповещениями.

В Outlook 2007 щелкните Инструменты > Правила и предупреждения... в меню окна Outlook. Смотрите скриншот:

  1. В диалоговом окне «Правила и оповещения» нажмите «Новое правило...».
  2. В диалоговом окне «Мастер правил» выберите «Применить правило к сообщению, которое я получаю в Outlook 2010 и 2013». А в Outlook 2007 выберите параметр «Начать с пустого правила» и параметр «Проверять сообщения при их получении» и нажмите кнопку «Далее».
  3. В следующем диалоговом окне мастера правил выберите «Отправлено только мне» в Outlook 2010 и 2013 или выберите, где находится мое имя в поле «Кому» в Outlook 2007, а затем нажмите кнопку «Далее».
  4. Проверьте ответ с помощью определенного шаблона в разделе «Выбрать действие» и щелкните определенный шаблон в поле «Изменить описание правила». Смотрите скриншот:
  5. В диалоговом окне «Выбор шаблона ответа» выберите «Пользовательские шаблоны в файловой системе» в раскрывающемся списке «Искать в», выберите ранее созданный шаблон и нажмите кнопку «Открыть». Когда он вернется к предыдущему диалоговому окну мастера правил, нажмите кнопку «Далее».
  6. В следующем диалоговом окне «Правила и мастер» нажмите кнопку «Далее», не проверяя никаких исключений.
  7. Введите имя для правила автоматического ответа в поле «Укажите имя для этого правила» и нажмите кнопку «Готово».

Если вы хотите использовать это правило для всех учетных записей электронной почты, установите флажок Создать это правило для всех учетных записей.

  1. Теперь он возвращается в диалоговое окно «Правила и оповещения», нажмите кнопку «ОК». Теперь правило автоматического ответа создано.
person Sandesh Jadhav M    schedule 17.06.2014