工作好帮手哦 MS Outlook VBA 宏-邮件规则

        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 界面,点击菜单【工具】–>【规则和通知】–>【新建规则】–>【选择 从空白规则开始:邮件到达时检查】–>【条件:仅在本机】–>【动作:运行脚本,在弹出窗口中选择之前创建的脚本】–>【点击完成】

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

  • Trackback 关闭
  • 评论 (2)
    • 天河
    • 2012/01/09 5:57下午

    脚本里面是空的啊!!!

      • DouBA
      • 2012/01/16 10:57下午

      额 刚才看了一下脚本里面有内容得吗。。。不知是不是浏览器问题哦

评论关闭

return top