OUTLOOK 附件 自动 存到新建文件夹 文件夹是邮件正文指定的部分文字

9016831

各位大神，

这个案例真的有点复杂
1.OUTLOOK 遇到有规则的邮件就启动规则并触发如下VBA流程
2.指定目录下新建一个文件夹，文件夹名=邮件名称里超过6个数字的那一整串数字，其中可能数字中间包含了/，替换成空格即可。
3.将邮件附件存到这个新建的文件夹里，不用改PDF 的文件名。



我目前在用的，也是论坛大神的，低阶版的代码供大家参考,非常好用。
遇到固定规则的邮件就启动VBA 并另存到指定文件夹下面替换了老的文件，无需改文件名。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\kunxin01\Desktop\***"
    For Each objAtt In itm.Attachments
'"c:\temp\"为保存目录，必须以"\"结尾，否则无法保存。此处可以自定义保存路径。
        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
        Set objAtt = Nothing
    Next
End Sub

9016831

大神来看看我，