如何使用VBA在内存中创建Outlook附件 无需生成本地物理文件

结论 #

原生Outlook VBA对象模型的Attachments.Add方法仅支持读取本地磁盘的实体文件路径作为参数，没有提供接收内存流/内存文本的接口，因此仅用原生Outlook接口无法完全在内存中完成附件添加操作，但可以通过两种方案满足不同场景需求。

方案1：优化Outlook现有逻辑，最小化磁盘操作影响 #

无需修改核心逻辑，仅在邮件发送完成后立即删除临时文件，临时文件不会残留，用户几乎感知不到磁盘写入操作：

Dim outlook As Object, mail As Object, path As String

Set outlook = CreateObject("Outlook.Application")
Set mail = outlook.CreateItem(0)

' 生成临时文件路径
path = Environ("temp") + "\file.txt"
' 写入文件内容
Open path For Output As #1
Print #1, "This is my txt"
Close #1

' 发送邮件
With mail
    .To = "me@awesome.com"
    .Body = "This is a test"
    .Attachments.Add CStr(path)
    .Send
End With

' 发送完成后立刻删除临时文件
Kill path

' 释放对象
Set mail = Nothing
Set outlook = Nothing

方案2：完全内存操作，改用CDO组件发送邮件 #

如果不需要依赖Outlook客户端发送，可以使用Windows系统自带的CDO邮件组件，支持直接从内存流添加附件，全程无需生成物理文件，仅需要提前配置发件邮箱的SMTP参数：

Sub SendMailWithInMemoryAttachment()
    Dim cdoMsg As Object
    Dim stream As Object
    Dim attachmentContent As String
    
    ' 附件内容直接存在变量里，不需要写入磁盘
    attachmentContent = "This is my txt"
    
    Set cdoMsg = CreateObject("CDO.Message")
    Set stream = CreateObject("ADODB.Stream")
    
    ' 配置SMTP参数，根据自己的邮箱服务商修改
    With cdoMsg.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.你的邮箱服务商.com" ' 示例：smtp.qq.com
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' SSL端口通常为465，非SSL端口为25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "你的邮箱地址"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的邮箱授权码"
        .Update
    End With
    
    ' 构造内存流写入附件内容
    With stream
        .Type = 2 ' 文本类型
        .Charset = "UTF-8"
        .Open
        .WriteText attachmentContent
        .Position = 0
    End With
    
    ' 填充邮件内容
    With cdoMsg
        .From = "你的邮箱地址"
        .To = "me@awesome.com"
        .Subject = "测试邮件"
        .TextBody = "This is a test"
        ' 直接从内存流添加附件，不需要实体文件
        .AddAttachment stream, "file.txt"
        .Send
    End With
    
    ' 释放对象
    stream.Close
    Set stream = Nothing
    Set cdoMsg = Nothing
End Sub

方案说明 #

• 必须使用Outlook客户端发送的场景（比如需要走企业内部Outlook配置、需要将邮件同步到已发送文件夹）优先选方案1，无额外配置、兼容性最好。
• 不需要依赖Outlook的场景可以选方案2，完全无磁盘写入操作。

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