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

Поделись сейчас:

По умолчанию Outlook сохраняет отправленные электронные письма в папке «Отправленные». Если вы не хотите сохранять определенные отправленные письма в папке по умолчанию, вы можете использовать метод, представленный в этой статье.

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

Конечно, пользователи могут вручную указать папку не по умолчанию для сохранения отправленного электронного письма. Просто перейдите на вкладку «Параметры» и нажмите «Сохранить отправленное в» > «Другая папка». Но такой подход будет проблематичным, так как пользователям придется каждый раз вручную указывать папку.Сохранить отправленное в другую папку вручную

Теперь, когда оба средства, упомянутые выше, неэффективны, почему бы не вернуться к Outlook VBA? Вот конкретные коды и шаги для автоматического сохранения определенных отправленных писем в определенную папку.

Автоматическое сохранение определенных отправленных писем в определенную папку

  1. К starт с, запустите приложение Outlook.
  2. Затем вам нужно нажать клавиши «Alt + F11», которые помогут вам получить доступ к окну редактора VBA.
  3. Во всплывающем окне «Microsoft Visual Basic для приложений» вы можете найти и дважды щелкнуть проект «ThisOutlookSession» в левой части.
  4. Далее в открытом окне проекта ThisOutlookSession необходимо скопировать в него следующие коды VBA.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim SentFolder As Folder Dim desFolder As Folder If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then 'Укажите отправленные электронные письма If InStr(Item.To, " shirley") > 0 Или InStr(LCase(Item.Subject), "test") > 0 Затем "Укажите папку для сохранения отправленных писем" Вы можете изменить ее в соответствии с вашими потребностями Установите SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail ) Set desFolder = SentFolder.Folders("Test") Set Item.SaveSentMessageFolder = desFolder End If End If End Sub

Коды VBA - автоматическое сохранение определенных отправленных писем в определенную папку

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

Дополнительный совет: отображайте диалоговое окно «Выбрать папку» при отправке

Есть некоторые люди, которые хотели бы вручную выбрать почтовую папку для сохранения отправленных писем. Но всегда переход на вкладку «Опции» для выбора папки будет беспорядочным. В этом случае они хотят, чтобы Outlook мог автоматически отображать диалоговое окно «Выбрать папку» при отправке. В ответ на это требование вот еще один код VBA. Вы можете скопировать его в проект ThisOutlookSession.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim desFolder As Folder If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then 'укажите адрес электронной почты If InStr(Item.To, "shirley") > 0 Или InStr(LCase(Item.Subject), "test") > 0 Then 'Отобразить диалоговое окно "Выбор папки" Set desFolder = Application.Session.PickFolder Set Item.SaveSentMessageFolder = desFolder End If End If End Sub

Коды VBA - автоматическое отображение диалогового окна «Выбор папки» при отправке

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

Восстановить Outlook

Outlook заслужил много похвал за свои многочисленные функции. Тем не менее именно из-за большого количества функций Outlook весьма уязвим. Кроме того, вредоносная электронная почта является одним изost потенциальные угрозы для данных Outlook. Поэтому, как обычные пользователи Outlook, вам лучше приобрести выдающийся Средство исправления почты Outlook PST, Как DataNumen Outlook Repair. Таким образом, вы можете быстро устранять различные ошибки Outlook и обеспечивать надежную защиту данных Outlook.

Об авторе:

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

Поделись сейчас:

Один ответ на «Как автоматически сохранять определенные отправленные электронные письма в определенную папку с помощью Outlook VBA»

  1. Как вы исключаете электронную почту из ответов на приглашения календаря? или их тоже можно отсортировать? Прямо сейчас я получаю ошибку 438 на этих электронных письмах.

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *