VBA宏批量发发票邮件：主题仅生效首个文件问题求助

你的宏只对第一个文件生效、后续邮件主题重复的核心原因：

• myfile1 = Mid(myfile, 16, 10) 这句放在了循环外面，仅在第一次获取文件时计算了主题内容，后续循环没有重新提取当前文件的对应字段，导致所有邮件都复用第一个文件的主题。

修正后的完整代码 #

Sub todo()
    'Outlook需要提前打开
    Dim OutApp As Object
    Dim OutMail As Object
    Dim mypath As String
    Dim myfile As String
    Dim myfile1 As String '声明主题提取变量

    '启动Outlook应用
    Set OutApp = CreateObject("Outlook.Application")

    On Error Resume Next

    '关闭屏幕刷新提升运行速度（原代码逻辑写反了）
    Application.ScreenUpdating = False  

    '文件路径
    mypath = "C:\Users\natudiaz\Downloads\Invoices\US\"

    '获取第一个PDF文件
    myfile = Dir(mypath & "*.pdf*")

    Do While myfile <> ""
        '关键修正：每次循环都重新提取当前文件的主题字段
        myfile1 = Mid(myfile, 16, 10)
        
        '创建新邮件
        Set OutMail = OutApp.CreateItem(0)

        With OutMail
            .To = "natudiazci@gmail.com"
            .CC = ""
            .BCC = ""
            .Subject = "INV:" & myfile1 '用&做字符串连接更安全
            .Body = "To the Team"
            .Attachments.Add mypath & myfile '去掉多余括号，避免潜在错误
            .ReadReceiptRequested = True '建议先设置回执再发送/显示
            .Display
            .Send
        End With

        '获取下一个文件
        myfile = Dir
    Loop
    
    '恢复屏幕刷新
    Application.ScreenUpdating = True

    '释放对象，避免内存泄漏
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

额外优化说明 #

1. 补全了所有变量的类型声明，避免VBA默认Variant类型带来的潜在问题
2. 调整Application.ScreenUpdating逻辑：先关闭刷新提升性能，循环结束后恢复
3. 把字符串连接符从+改成&，+在VBA中可能因类型不匹配报错，&是专门的字符串连接符更可靠
4. 调整.ReadReceiptRequested的位置，确保回执设置生效
5. 增加对象释放语句，规范内存管理

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