Outlook规则调用VBA子程序保存邮件至本地磁盘求助

本人VBA技术已生疏，现求助相关帮助：

• 已在Outlook桌面端创建规则，可自动将邮件移至指定文件夹、标记为已读并调用脚本
• 需要实现该规则调用的VBA子程序，将符合规则的邮件保存为TXT文件

以下是在ThisOutlookSession模块中使用的代码：

Public Sub SaveToDiskScript(Item As Outlook.MailItem)

Const olMsg As Long = 0 '0=Text format (.txt)

    Dim m As MailItem
    Dim savePath As String


    Set m = Item

    savePath = "C:\Users\im.a.pretty.user\Desktop\StorageFolder\"
    savePath = savePath & m.Subject & Format(Now(), "yyyy-mm-dd-hhNNss")
    savePath = savePath & ".txt"


    m.SaveAs savePath, olMsg


End Sub

注意事项 #

• Outlook 2016启用脚本需按对应步骤配置，规则向导可识别的子程序参数必须为MailItem类型

内容的提问来源于stack exchange，提问作者PancakeSlapper