Outlook2010利用规则运行脚本，将附件保存在固定位置，并在邮件类别中标注类别。

最新推荐文章于 2025-03-31 16:42:22 发布

原创

最新推荐文章于 2025-03-31 16:42:22 发布 · 1.2w 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#outlook #VBA #标注类别 #自动存储附件

本文介绍了如何在Outlook 2010中设置规则，通过VBA脚本来实现当邮件满足特定条件时，自动将附件保存到指定位置，并在邮件中添加类别标记。脚本会首先检查存储文件夹是否存在，如果不存在则创建，然后调用'SaveFile'过程来处理附件。

<span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; background-color: rgb(255, 255, 255);">首先要确认触发邮件脚本的规则，比如标题所含字符、固定发件人、附件名称等。</span>

具体规则创建就不再赘述。

规则中选择符合条件即“运行脚本”。

首先检查存储文件夹是否存在，如果不存在则提示建立。然后调用“SaveFile”过程对符合条件的附件进行存储。

Public Sub SaveAttachmentFromMyMail(item As Outlook.MailItem)
    Dim myFso As New FileSystemObject
    Dim FileSavePath As String
    Dim RetMessage As Integer
    Dim objCate As Category
    Dim strCategories As String
    FileSavePath = "G:\资料"
    If myFso.FolderExists(FileSavePath) = False Then
        RetMessage = MsgBox("默认存储文件夹[" & FileSavePath & "]不存在，是否创建？", vbYesNo, "提示")
        If RetMessage = 6 Then
            myFso.CreateFolder FileSavePath
        End If
    End If
    SaveFile item, FileSavePath & "\", "CH*.xls*"
    item.Categories = "OK" '设置类别
    item.Save
End Sub

最低0.47元/天解锁文章