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

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

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

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

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

Автоматическая установка срока действия для входящих или исходящих писем

1. Прежде всего, запустите приложение Outlook и перейдите на вкладку «Разработчик».
2. Затем нажмите кнопку «Visual Basic».
3. В новом всплывающем окне откройте проект VBA «ThisOutlookSession», а затем скопируйте и вставьте в него следующие коды.

Public WithEvents olItems As Items Private Sub Application_Startup() 'Чтобы сосредоточиться на новых входящих сообщениях электронной почты Set olItems = Application.Session.GetDefaultFolder(olFolderInbox).Items 'Если вы хотите сосредоточиться на исходящих сообщениях электронной почты 'Используйте "Set olItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items End Sub Private Sub olItems_ItemAdd(ByVal Item As Object) Dim strMsg As String Dim nRes As Integer If Item.ExpiryTime = #1/1/4501# Then '("m",2,Item.ReceivedTime) относится к 2 месяцам после элемента приходит в указанную папку 'Вы можете изменить его в соответствии с вашими потребностями Item.ExpiryTime = DateAdd("m", 2, Item.ReceivedTime) strMsg = "Новое электронное письмо" & Chr(34) & Item.Subject & Chr( 34) & "срок действия" & DateAdd("m", 2, Item.ReceivedTime) & "." nRes = MsgBox(strMsg, vbExclamation + vbOKOnly, "Expiry Time") End If Item.Save End Sub

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

Держите вредоносные электронные письма в страхе

Outlook не может быть освобожден от повреждений, поскольку в настоящее время вредоносные электронные письма стали одним из самыхost общие угрозы безопасности. Вирусы могут быть легко скрыты в электронных письмах. Поэтому вы должны всегда быть осторожными в работе с новыми электронными письмами. В противном случае велика вероятность, что вы пострадаете от Повреждение файла Outlook PST, который будет довольно запутанным.

Об авторе:

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