Если вы хотите отправить копию определенного черновика электронной почты вместо самого черновика, чтобы вы могли повторно использовать этот черновик, вы можете использовать 2 метода, представленные в этой статье.
Возможно, вы думаете, что создание и использование шаблона сообщения довольно хлопотно, так как каждый раз, когда вам нужно его использовать, вы должны сначала найти его в «Форме выбора». Таким образом, вы можете предпочесть сохранить черновик электронной почты в качестве шаблона электронной почты. Однако, как правило, когда вам нужно отправить электронное письмо с помощью черновика, если вы сразу откроете конкретный черновик и нажмете кнопку «Отправить», черновик будет отправлен и сразу же исчезнет из папки «Черновики». Следовательно, вы не сможете повторно использовать этот черновик. В этом случае вы будете надеяться, что сможете просто отправить копию конкретного черновика, а не сам черновик. В ответ на этот вопрос здесь мы научим вас 2 подходам.
Способ 1: переслать конкретный черновик электронной почты
- В самом начале сtarт ваше приложение Outlook.
- Затем перейдите в папку «Черновики».
- Затем найдите и предложите конкретный черновик электронного письма.
- Затем нажмите кнопку «Переслать» в группе «Ответить» на вкладке «Главная».
- Сразу же появится новое электронное письмо с тем же содержанием, что и конкретный черновик.
- Теперь вы можете составить его по своему желанию и, наконец, нажать кнопку «Отправить», чтобы отправить его.
Этот способ очень удобен, если у вас в папке «Черновики» всего несколько черновиков. Но если у вас много черновиков, вам будет сложно найти конкретный часто используемый. В этот момент вы можете предпочесть следующий совет.
Способ 2: отправить копию определенного черновика электронной почты
- Прежде всего, нажмите клавиши «Alt + F11».
- Затем во всплывающем окне редактора VBA откройте новый модуль.
- Затем скопируйте и вставьте в него следующие коды VBA.
Sub SendCopyofSpecificDraft()
Dim objDrafts As Outlook.Items
Dim objSpecificDraft As MailItem
Dim strDraftSubject As String
Dim strFilter As String
Dim nPrompt As Integer
Dim objMailCopy As MailItem
Set objDrafts = Application.Session.GetDefaultFolder(olFolderDrafts).Items
'Replace the following line with the subject of the specific frequently-used draft
strDraftSubject = "DataNumen Outlook Repair"
strFilter = "[Subject] = " & Chr(34) & strDraftSubject & Chr(34)
'Find the specific draft item
Set objSpecificDraft = objDrafts.Find(strFilter)
If objSpecificDraft Is Nothing Then
'Prompt you if no such a draft
nPrompt = MsgBox("No such a draft exists!", vbExclamation)
Else
'If there is such a draft, locate and copy it
Set objMailCopy = objSpecificDraft.Copy
If Not objMailCopy Is Nothing Then
objMailCopy.Display
End If
End If
End Sub
- После этого вы должны добавить новый макрос на панель быстрого доступа.
- Наконец-то можно попробовать.
- Сначала нажмите кнопку макроса на панели быстрого доступа.
- Затем сразу же отобразится копия конкретного черновика электронной почты.
- Но если такого черновика в папке «Черновики» нет, вы получите сообщение, подобное следующему скриншоту:
Избавьтесь от частых проблем Outlook
Возможно, вы столкнулись с определенным количеством проблем с Outlook. Как вы справляетесь с ними, как обычно? В общем, если проблемы небольшие, для них достаточно инструмента для восстановления папки «Входящие». Но если проблемы связаны с поврежденный файл PST файл, вам лучше использовать гораздо более замечательный инструмент, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com