При повторной отправке или пересылке сообщения электронной почты вы можете не сохранять копию в папке «Отправленные». В этой статье вы узнаете, как настроить Outlook так, чтобы он запрашивал сохранение копии или нет с помощью Outlook VBA.
В действительности для мost обычные электронные письма, вы должны предпочесть сохранять их копии в папке «Отправленные». Тем не менее, в некоторых ситуациях, например, когда вы повторно отправляете, пересылаете электронное письмо или когда это электронное письмо содержит очень большое вложение, вы можете подумать, что нет необходимости сохранять копию. В этих обстоятельствах вы должны надеяться, что Outlook сможет подсказать вам и позволить вам сделать выбор.
Обходной путь: используйте опцию «Не сохранять»
На самом деле, Outlook не имеет этой функции. Но вы можете использовать обходной путь. Это опция «Не сохранять» в окне сообщения. Вы можете получить к нему доступ, перейдя на вкладку «Параметры», а затем нажав кнопку «Сохранить отправленное в», как показано на следующем снимке экрана:
Чтобы упростить доступ к этой опции, вы можете добавить ее на панель быстрого доступа. Щелкните его правой кнопкой мыши и выберите «Добавить на панель быстрого доступа» во всплывающем меню.
Отныне, если вы не хотите сохранять копию, вы можете просто установить флажок рядом с параметром «Не сохранять» на панели быстрого доступа. Несмотря на то, что это средство действительно удобно, most пользователи до сих пор жалуются, что часто забывают поставить галочку. Поэтому они по-прежнему ждут всплывающего окна с запросом на сохранение копии в Outlook. Для этого вы должны использовать Outlook VBA. Пожалуйста, прочитайте, чтобы получить подробные коды и шаги.
VBA: спрашивайте, сохранять ли копию или нет при отправке электронных писем
- Прежде всего, запустите Outlook и перейдите на вкладку «Разработчик».
- Затем нажмите кнопку «Visual Basic», которая откроет новое окно.
- В окне «Visual Basic» дважды щелкните «ThisOutlookSession», чтобы открыть окно проекта «ThisOutlookSession».
- Затем скопируйте и вставьте в него следующие коды.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strMsg As String Dim nRes As Integer strMsg = "Вы хотите сохранить копию этого сообщения?" nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Подтвердить сохранение копии") If nRes = vbNo Then Item.DeleteAfterSubmit = True End If End Sub
- После этого вы должны подписать этот код, как обычно, и изменить настройки макроса, чтобы включить только макросы с цифровой подписью.
- В конце концов, вы можете попробовать. Когда вы нажмете кнопку «Отправить», вы получите предупреждение Outlook, подобное следующему изображению. Если вы выберете кнопку «Нет», текущее сообщение не будет сохранено в папке «Отправленные». Если вы нажмете кнопку «Да», это сообщение будет сохранено.
Справляйтесь с частыми проблемами Outlook
Как и другие приложения, Outlook может страдать от различных проблем, таких как внезапный сбой, отсутствие ответа, случайные сообщения об ошибках и так далее. Следовательно, если вы являетесь постоянным пользователем Outlook, вам лучше приобрести Средство восстановления файлов Outlook, Как DataNumen Outlook Repair тем, что он пригодится, когда вы обнаружите, что ваш файл Outlook поврежден по неизвестным причинам.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт SQL Server повреждение базы данных mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com