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

最新推荐文章于 2023-07-26 15:18:19 发布

不会编程的财务不是老司机

最新推荐文章于 2023-07-26 15:18:19 发布

阅读量1.2w

点赞数 1

分类专栏： OUTLOOK vba 文章标签： outlook VBA 标注类别自动存储附件

本文链接：https://blog.csdn.net/ChoasRules/article/details/38293547

版权

<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,