Outlook 2007 tự động xóa e-mail trong một danh mục nhất định sau thời lượng X

Tôi nhận được hai loại e-mail: Thảo luận và Thông báo. Thông báo là các e-mail được tạo tự động cho những thứ như cập nhật mã, cập nhật theo dõi vấn đề, v.v. Tôi có các bộ lọc được thiết lập để cung cấp cho họ danh mục "Thông báo".

Tôi muốn giữ các cuộc thảo luận vô thời hạn, vì bạn không bao giờ biết khi nào bạn có thể cần thông tin từ e-mail sáu tháng trước. Nhưng, các thông báo là phù du và không cần thiết phải làm tắc nghẽn không gian đĩa.

Có cách nào để làm cho Outlook tự động lưu trữ / tự động xóa / thanh lọc / hết hạn / bất cứ thứ gì các e-mail này dựa trên danh mục không?

Được rồi, tôi vừa viết macro Outlook đầu tiên của mình - vì vậy đừng đổ lỗi cho tôi nếu nó xóa tất cả thư của bạn. Sao lưu trước khi bạn thử! :)

Trong Outlook, đi tới Công cụ & gt; Macro & gt; Vĩ mô . Nhập tên bạn muốn cung cấp cho macro. Tôi đặt tên cho mình là "Delete_Old_Notutions".

Đây là mã macro tôi đã viết:

Sub Delete_Old_Notification()
    Dim ns As Outlook.NameSpace
    Set ns = Application.GetNamespace("MAPI")

    Dim inbox As Outlook.MAPIFolder
    Set inbox = ns.GetDefaultFolder(olFolderInbox)

    Dim item As Object 'Outlook.MailItem
    Dim Action As Integer
    Dim Categories, Category

    Action = 0

    For Each item In inbox.Items
    If Len(item.Categories & "") > 0 Then
        Categories = Split(item.Categories, ";")

        For Each Category In Categories
        Select Case LCase(Trim(Category))
            Case "notification":
            If DateDiff("d", item.ReceivedTime, Now) > 14 Then
                Action = 1
            End If
        End Select
        Next
    End If

    Select Case Action
        Case 1: MsgBox ("Delete '" & item.Subject & "'") 'item.Delete
    End Select

    Action = 0
    Next
End Sub

(Có thể ngắn hơn, vâng - nhưng tôi đã xây dựng nó để có thể mở rộng.)

Ghi chú:

1. Nó nhìn trong hộp thư đến tiêu chuẩn. Nếu bạn muốn thư mục khác, bạn phải sửa đổi thư mục "Đặt hộp thư đến". Để tìm trong các thư mục con của hộp thư đến, hãy thêm .Quản lý ("tên người dùng") ở cuối dòng
2. Hiện tại nó kiểm tra xem thư có một danh mục "thông báo" hay không. Nếu bạn muốn một danh mục khác, hãy chèn nó vào Vỏ . Chỉ làm cho nó viết thường vì tôi chuyển đổi tất cả thành chữ thường - chỉ để chắc chắn.
3. Hiện tại nó ảnh hưởng đến thư có độ tuổi từ 14 ngày trở lên. Xem trong Nếu DateDiff hàng.

4. Hiện tại nó không thực sự xóa, nó chỉ hiển thị một thông báo. Để làm cho nó thực sự hoạt động, bạn cần xóa MsgBox ở gần cuối Sub và giữ dòng như thế này:

       Case 1: item.Delete
   

Bạn có thể muốn xem hai bài đăng trên diễn đàn này để tìm hiểu ...

• làm thế nào để tự động chạy macro khi khởi động Outlook
• làm thế nào để ký macro của bạn để cho phép Outlook chạy nó