Question

当我的系统禁用AutoArchive时，是否有一种方法可以在设定的时间每天删除文件夹中的所有电子邮件？通常我会使用AutoArchive来解决这个问题，但目前它不是一个选项。

Answer 1

设置每日定期任务，包含提醒和独特主题。

在ThisOutlookSession模块中

Option Explicit

Private Sub Application_Reminder(ByVal Item As Object)

    If Item.MessageClass = "IPM.Task" Then

        If Item.Subject = "Scheduled Deletion" Then
            DeleteFromToBeDeleted
        End If

    End If

End Sub


Sub DeleteFromToBeDeleted()

    Dim myFolder As Folder
    Dim i As Long

    Set myFolder = Application.GetNamespace("MAPI"). _
            GetDefaultFolder(olFolderInbox).Folders("ToBeDeleted")

    For i = myFolder.items.Count To 1 Step -1
        myFolder.items(i).Delete
    Next i

    Set myFolder = Nothing

End Sub

外表。删除邮箱

1 个答案: