Excel VBA生成PDF后，如何通过Thunderbird发送带附件邮件？

核心思路 #

Thunderbird支持通过命令行参数-compose直接创建带附件的新邮件，只需在参数中指定附件的本地路径即可，无需依赖额外组件。

完整代码示例 #

假设你已经完成了「Factura」工作表导出为PDF的逻辑，以下是补充附件并调用Thunderbird的完整代码：

Sub SendInvoiceEmail()
    Dim strPDFFile As String
    Dim strThunderbirdExe As String
    Dim strComposeCmd As String
    
    ' 导出Factura工作表为PDF（替换为你已实现的导出逻辑）
    strPDFFile = ThisWorkbook.Path & "\Factura_" & Format(Now(), "YYYYMMDDHHMMSS") & ".pdf"
    Sheets("Factura").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPDFFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True
    
    ' Thunderbird安装路径（默认路径，根据实际安装位置调整）
    strThunderbirdExe = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
    ' 64位系统下可能路径为：C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe
    
    ' 构造邮件命令参数：收件人、主题、正文、附件
    strComposeCmd = """" & strThunderbirdExe & """ -compose """ & _
        "to='customer@example.com'," & _
        "subject='发票：" & Format(Now(), "YYYY-MM-DD") & "'," & _
        "body='您好，附件为本次交易的发票，请查收。'," & _
        "attachment=""" & strPDFFile & """"""
    
    ' 调用Thunderbird打开带附件的新邮件
    Shell strComposeCmd, vbNormalFocus
End Sub

关键注意事项 #

• 路径空格处理：如果Thunderbird安装路径或PDF文件路径包含空格，必须用双引号完整包裹路径，避免命令执行失败。
• 多附件支持：如需添加多个附件，在attachment参数中用逗号分隔多个文件路径，例如：attachment="C:\file1.pdf,C:\file2.pdf"。
• 路径验证：执行前可通过Dir(strPDFFile)检查PDF文件是否成功生成，避免因文件不存在导致附件添加失败。

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