修改自动下载附件的文件名

yanyt

求助：我用以下的代码实现了自动下载附件，但存在一个问题，不同发件人发来的文件，如果文件名相同，则会被覆盖，我的想法是把附件的文件名前面加上发件人的名称，再加一个随机数，这样就不会被覆盖了，请问如何修改呢？



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 = "d:\888\"
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

安若浅笑

你好，自动下载附件是邮件里收到的文件，用代码可以自动下载附件吗？如果是企业微信里附件呢？可以用代码自动下载附件吗？

安若浅笑

自动下载附件是邮件里的附件吗？

剑指E

1. path = folder + msg.SenderName + "_" + Format(Now, "ddhhmmss") + "_" + CStr(mailIndex) + "_" + att.FileName

复制代码

yanyt

安若浅笑 发表于 2023-10-23 22:00
你好，自动下载附件是邮件里收到的文件，用代码可以自动下载附件吗？如果是企业微信里附件呢？可以用代码自 ...

是邮箱里面的附件

yanyt

剑指E 发表于 2023-10-23 23:09

太感谢您了