VBA outlook实战#02--自动分类邮件

最新推荐文章于 2021-07-02 21:12:24 发布

原创

最新推荐文章于 2021-07-02 21:12:24 发布 · 1.3w 阅读

18 ·

CC 4.0 BY-SA版权

文章标签：

#移动 #文件夹 #自动

本文介绍如何使用VBA编程实现邮件自动分类。当收到新邮件时，脚本会将邮件根据发件人部门（如HR、IT、Software）自动移动到对应的Outlook文件夹中，提高邮件管理效率。

VBA编程实现邮件自动分类

通过脚本，接收邮件后，自动移动到相应的文件夹。

首先在收信箱下创建三个文件夹：HR、IT和Software。
其次通过GetFolder(strFolderPath As String)方法获取文件夹对象。
然后根据CheckInContact(mailAdress As String)方法获取发信人的部门信息。
最后根据部门信息，移动邮件到相应的文件夹。

Sub AutoMove(Item As Outlook.mailItem)
    Dim var As Variant    

    var = ClassifyMail(Item)    
    Set Item = Nothing
End Sub
Public Function ClassifyMail(Item As Outlook.mailItem)
'move mail to related folder
    Dim objApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim srcFolder As Outlook.Folder
    Dim dstFolder As Outlook.Folder
    Dim srcFolderPath As String
    Dim dstFolderPath As String
    Dim i As Integer

    On Error GoTo last

    Set objApp = Application
    Set objNS = objApp.GetNamespace("MAPI")
    srcFolderPath = "Outlook\收件箱"
    Set srcFolder = GetFolder(srcFolderPath)

    Select Case