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

По некоторым причинам вы можете сохранять много черновиков писем в Outlook. Эта статья научит вас, как пакетно отправлять их все или только выбранные одним щелчком мыши, который создается с помощью Outlook VBA.

Иногда вы можете не надеяться отправить электронные письма прямо сейчас. Поэтому вы сохраните их в почтовой папке «Черновики» и намереваетесь отправить позже. Как обычно, когда вы хотите отправить черновики, вам нужно открывать их по отдельности и нажимать кнопку «Отправить» один за другим. Если необходимо отправить большое количество черновиков, это займет довольно много времени. Следовательно, многие пользователи надеются, что Outlook позволит им отправить все черновики одним нажатием кнопки. Однако по умолчанию такой кнопки нет. Но вы можете применить Outlook VBA для его создания. Вот подробные шаги и коды VBA.

Пакетная отправка всех черновиков писем

1. Сначала запустите приложение Outlook и нажмите сочетания клавиш «Alt + F11».
2. Затем вы откроете окно редактора VBA, в котором вам следует открыть новый модуль.
3. Затем скопируйте и вставьте в него следующие коды VBA.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. После этого вы можете выйти из редактора VBA и приступить к добавлению проекта VBA на панель быстрого доступа или на ленту. Здесь мы возьмем панель быстрого доступа в качестве примера.

• Во-первых, перейдите на вкладку «Файл» > «Параметры» > «Панель быстрого доступа».
• Затем выполните шаги, показанные на рисунке ниже, чтобы добавить новый макрос на панель быстрого доступа.

5. Наконец, вы можете вернуться в главное окно Outlook. Вы увидите новую кнопку на панели быстрого доступа.

• Если в папке «Черновики» нет элемента, при нажатии кнопки вы получите сообщение, подобное следующему снимку экрана.
• Но если в папке «Черновики» есть элементы, вы получите подсказку, как на изображении ниже. Как только вы выберете «Да», Outlook начнет рассылать все черновики.

Пакетная отправка выбранных черновиков писем

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

1. Во-первых, скопируйте их в новый модуль.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. Затем добавьте новый макрос на панель быстрого доступа, как обычно.
3. В дальнейшем можно выбрать tarполучите черновики писем и нажмите кнопку, вы получите подсказку, подобную изображению:
4. Наконец, если вы нажмете «Да», выбранные черновики писем будут отправлены.

Избавьтесь от надоедливых проблем с Outlook

Возможно, вы столкнулись с несколькими неприятными проблемами Outlook. Как вы можете избавиться от них? Как обычно, вы можете попробовать встроенный инструмент восстановления Scanpst.exe. Он может исправить небольшие проблемы с файлами Outlook PST. Но если вы, к сожалению, встретитесь с серьезными неприятностями, такими как Повреждение электронной почты PST, инструмент "Входящие" не будет работать. В этот момент у вас нет другого выбора, кроме как использовать более выдающийся инструмент, например DataNumen Outlook Repair.

Об авторе:

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