Question

我想监视所有文件夹的邮件活动。主要是当邮件从一个文件夹移动到另一个文件夹时。这是一个名为“真实邮箱”的共享邮箱。

问题是邮件从收件箱错误地移入了子文件夹并丢失了。我想创建一个日志来记录邮件项目的所有移动，以便我查找重要项目。

子文件夹广泛，可以深入4个。示例：

Trug Mailbox 
        Inbox
               0.Trug 
                        Cap Cargo Updates 
                        Communications 
                        OSDR 
                        Pallet enquires 
                        Paperless Packing Slip 
                        Releases 
                        Shift Reports 
                        Trug Booking Sheet 
                        Trug Replies 
                        XXX

以下代码是我监视落入子文件夹之一的邮件项目的起点。

效果很好，但仅适用于1个子文件夹。我需要这个概念来监视100多个子文件夹的活动。

我不需要移动文件。我不需要创建文件夹。我只希望在邮件项从收件箱移动到任何子文件夹时触发事件。我对此深信不疑。甚至不确定是否有可能。

非常感谢所有帮助。

Option Explicit

Private Fold1 As Outlook.MAPIFolder
Private WithEvents colItems1 As Outlook.Items

Private Sub Application_Startup()
    Set Fold1 = Application.GetNamespace("MAPI").Folders("Storage Trug").Folders("Inbox").Folders("0.Trug").Folders("Releases")
    Set colItems1 = Fold1.Items
End Sub

Private Sub colItems1_ItemAdd(ByVal Item As Object)
    MsgBox "New mail from " & Item.SenderName & " in " & Fold1.Parent.Name
End Sub

Private Sub Application_Quit()
    Set Fold1 = Nothing
    Set colItems1 = Nothing
End Sub

监视所有子文件夹的Outlook邮件活动

0 个答案: