outlook批量修改附件的名字

good-good-good

从网上找了一段代码，但是报错，请高手帮忙看看呢。

outlook中alt+F8，输入宏的名字，创建，把以下代码拷贝进去。
选择要保存附件的邮件（选中邮件中某封信没有附件也没关系，宏可以判断的），执行宏即可。

附件保存到的目录写在了宏里，你自己改folder那个变量。保存后的附件名字后半部分是附件原始名字，前面加了“mail<顺序号>”的前缀，防止重名，想整理文件时分类也方便一些。

代码:


Public Sub SaveAtt()
Dim msg As MailItem
Dim exp As Explorer
Dim att As Attachment
Dim mailIndex As Integer
Dim path As String
Dim folder As String

Set exp = Application.ActiveExplorer

'保存附件到哪个文件夹，末尾必须是斜杠
folder = "c:\temp\"
mailIndex = 0

For Each msg In exp.Selection

If msg.Attachments.Count > 0 Then
mailIndex = mailIndex + 1
For Each att In msg.Attachments
'所有附件保存到folder指定的文件夹中，文件命名为：mailatt<编号>_附件原始文件名
path = folder + "mailatt" + CStr(mailIndex) + "_" + att.FileName
att.SaveAsFile path
Next
End If

Next

End Sub

闻启学

提示什么错误