Как настроить правило для удаления сообщений через 30 дней в Корзине в Outlook 2016 Mac версии? - PullRequest
Новая
       31

Как настроить правило для удаления сообщений через 30 дней в Корзине в Outlook 2016 Mac версии?

0 голосов
/ 12 декабря 2018

На работе с использованием Office365 я изо всех сил пытался настроить удаление сообщений через 30 дней, чтобы автоматически попадать в корзину.Любая помощь будет оценена.Использование Mac версии Outlook клиент.

1 Ответ

0 голосов
/ 12 декабря 2018

Вы можете удалить сообщение через 30 дней в папке «Черновики», используя следующий код: 

Private Sub RemoveEmail90()

Dim olSession As Outlook.Application, olNamespace As NameSpace
Dim olDrafts As Outlook.MAPIFolder
Dim i As Integer
Set olSession = New Outlook.Application
Set olNamespace = olSession.GetNamespace("MAPI")
Set olDrafts = olNamespace.GetDefaultFolder(olFolderDrafts)
Set Delete_Items = olDrafts.Items

For i = Delete_Items.Count To 1 Step -1
    If TypeName(Delete_Items.item(i)) = "MailItem" Then
            If DateDiff("d", Now, Delete_Items.item(i).ReceivedTime) > 30 Then
                Delete_Items.item(i).Delete
            End If
    End If
Next

Set olSession = Nothing
Set olNamespace = Nothing
Set olInbox = Nothing
End Sub

Ссылка от:

Код VBA для удаления электронных писем после x Дней

...