Как автоматически добавлять приветствия для ответов на сообщения с помощью Outlook VBA

В общем, при ответе на письмо мы привыкли добавлять приветствия. Кто-то даже надеется, что Outlook умеет автоматически добавлять приветствия в зависимости от имени получателя. На самом деле это можно реализовать с помощью Outlook VBA. Эта статья расскажет об этом подробно.

Как обычно, когда мы отвечаем на электронное письмо, мы всегда пишем приветствие в начале тела сообщения. Вам может показаться, что это немного громоздко, так как вы не хотите каждый раз вводить одну и ту же строку приветствия. На самом деле вы можете избежать этого с помощью функции Outlook «Быстрые части», которая позволяет вам сохранять те же приветствия, что и Быстрая часть. С тех пор вы можете вставить его напрямую без необходимости печатать вручную.

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

Автоматически добавлять приветствия в ответные сообщения

1. Прежде всего, запустите Outlook и перейдите на вкладку «Разработчик».
2. Затем нужно нажать на кнопку «Visual Basic».
3. После этого появится новое окно. Затем в нем вы должны открыть пустой модуль или вставить новый модуль.
4. Далее в новом модуле вы можете скопировать и вставить в него следующие коды VBA.

Sub AutoAddGreetingtoReply() Dim oMail As MailItem Dim oReply As MailItem Dim GreetTime As String Select Case Application.ActiveWindow.Class Case olInspector Set oMail = ActiveInspector.CurrentItem Case olExplorer Set oMail = ActiveExplorer.Selection.Item(1) End Select Select Case Time Case От 0.3 до 0.5 GreetTime = "Доброе утро!" Case 0.5 To 0.75 GreetTime = "Добрый день!" Case Else GreetTime = "Добрый вечер!" Конец Выберите Установить oReply = oMail.Reply With oReply .HTMLBody = " Уважаемый " & oMail.SenderName & ", " & GreetTime & .HTMLBody .Отобразить конец с концевой подпрограммой

5. После этого вы можете выйти из текущего окна и изменить настройки макроса. Нажмите кнопку «Безопасность макросов», а затем установите низкий уровень макросов.
6. Позже вам нужно добавить новый проект VBA на ленту или панель быстрого доступа. Здесь мы возьмем панель быстрого доступа в качестве примера.

• Во-первых, нажмите стрелку вниз на панели быстрого доступа и выберите «Дополнительные команды».
• Затем во всплывающем окне добавьте новый макрос на панель быстрого доступа, выполнив действия, показанные на изображении ниже.

7. В конце концов, вы можете попробовать.

• Во-первых, выберите электронное письмо и нажмите кнопку макроса на панели быстрого доступа.
• Затем появится новое ответное сообщение. Приветствия автоматически добавляются в тело сообщения, как показано на следующем изображении.

Обеспечьте надежную защиту Outlook

Поскольку Outlook уязвим, обычные пользователи должны были столкнуться с рядом проблем. Если мы столкнулись с этими раздражающими ошибками, мы можем разумно использовать встроенный инструмент восстановления, scanpst.exe, который может решить небольшие проблемы. Если вы столкнулись с серьезными проблемами, такими как Повреждение почты Outlook, инструмент «Входящие» не поможет. Вам потребуется прибегнуть к более опытному и умному инструменту, такому как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный файл SQL mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com