Некоторые пользователи предпочитают удалять исходное электронное письмо после ответа на него, поскольку ответ содержит информацию исходного электронного письма. В этой статье будут представлены 2 быстрых способа реализовать это автоматически.
По умолчанию Outlook настроен на автоматическое включение исходного сообщения в ответ. В этом случае многие пользователи хотели бы удалить исходное сообщение, оставив только ответ в своем почтовом ящике. Это не только позволяет сохранить их почтовый ящик в небольшом размере, но также может привести их электронные письма в порядок. Если вы не хотите удалять исходные электронные письма вручную, вы можете использовать следующие 2 приема, чтобы автоматизировать это.
Совет 1: Используйте быстрый шаг
Outlook поставляется со встроенным быстрым шагом «Ответить и удалить», как показано на следующем изображении. Этот быстрый шаг может автоматически удалить исходное сообщение и отобразить ответ, когда вы нажмете на него.
Если вы не можете найти этот быстрый шаг, очень вероятно, что вы случайно удалили его ранее. Вы также можете создать его заново, выполнив следующие действия.
- Сначала нажмите кнопку «Создать новый» в группе «Быстрые действия».
- Затем во всплывающем диалоговом окне присвойте ему имя, например «Ответить и удалить».
- Далее в разделе «Действия» выберите «Ответить».
- После этого нажмите кнопку «Добавить действие».
- Затем добавьте действие «Удалить сообщение».
- Наконец, нажмите кнопку «Сохранить».
Таким образом, вы всегда должны использовать этот быстрый шаг, чтобы отвечать на электронные письма. Если вы все еще хотите использовать стандартную кнопку «Ответить» в группе «Ответить» для достижения «Ответить и удалить», вы можете обратиться к следующим средствам.
Совет 2. Используйте Outlook VBA
- Во-первых, нажмите клавиши «Alt + F11» в Outlook.
- Затем в следующем окне редактора VBA откройте проект ThisOutlookSession.
- Затем скопируйте и вставьте в него следующие коды VBA.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
Set objMail = Application.ActiveExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMail = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
objMail.Delete
'If you want to only delete the specific email when replying it
'You can specify the condition of the email as per your needs
'like the following lines
'If (InStr(LCase(objMail.Subject), "test") > 0) Then
' objMail.Delete
'End If
End Sub
- После этого подпишите этот код цифровой подписью.
- Кроме того, не забудьте изменить настройки макросов Outlook, чтобы разрешить макросы с цифровой подписью.
- Наконец-то резtar• Outlook, чтобы активировать новый проект VBA. Отныне, когда вы отвечаете на электронное письмо, нажимая стандартную кнопку «Ответить», исходное электронное письмо будет автоматически удалено.
Восстановите скомпрометированные данные Outlook
Если вы столкнулись с внезапным Внешний вид повреждения неожиданно, вы должны приложить все усилия, чтобы восстановить данные Outlook. Как обычно, лучшие и мost простой подход заключается в извлечении из резервных копий. Но если у вас нет текущей резервной копии данных, вы также можете воспользоваться опытным инструментом восстановления, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановление мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com