MS Outlook 的邮件规则满了，怎么办，还有那么多邮件要分类存放、处理。。。不要怕【宏】帮你忙，可以自动回复特定邮件，可以自动存档带附件的邮件，配合其他Office中的组件，可以基本你可以不用动手就帮你把事情做完嘻嘻，别告诉老板，你使用宏做的哦，否则 嘿嘿…

        一起来尝试编制一个宏吧，可以实现收到指定发件人后，将邮件移动到指定目录等。Outlook中 【alt】+【F11】，输入如下代码：

Sub EmailFilter(Item As MailItem)
    ' 声明变量，好处是编辑器知道变量类型之后可以进行自动提示。
    Dim id As String
    Dim email As Outlook.MailItem
    Dim objApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim inbox As Outlook.MAPIFolder

    ' 取得收件夹和下面的三个子目录
    Set objApp = Application
    Set objNS = objApp.GetNamespace("MAPI")
    Set inbox = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
    id = Item.EntryID
    Set email = Application.Session.GetItemFromID(id)

    '收到主题中含有 "表扬" 字样的邮件，直接丢到已删除邮件中
    If email.Subject Like "*表扬*" Then email.Move objNS.Folders("个人文件夹").Folders("已删除邮件")

    '收到抄送自己的（或者其他重要邮件），设置标记为红色，以便快速查看
    If email.CC = "抄送自己的" Then email.FlagIcon = olRedFlagIcon

    '设置发件人，一旦符合，执行操作，可以删除，可以移动到指定文件夹(文件夹的文件夹...)，可以回复，可以...
    Select Case email.SenderName
        Case "XXXXXX"
        email.Move inbox.Folders("XXX")
    End Select
End Sub

        在编辑器中保存后，切换到 Outlook 界面，点击菜单【工具】–>【规则和通知】–>【新建规则】–>【选择 从空白规则开始：邮件到达时检查】–>【条件：仅在本机】–>【动作：运行脚本，在弹出窗口中选择之前创建的脚本】–>【点击完成】

        有啥不明白的，偶们一起探讨 🙂