如何使用VBA根据条件为Outlook邮件添加附件？

我来帮你完善这段VBA代码，实现你需要的「先检查指定日期文件是否存在，存在则添加，否则添加备用路径文件」的功能。核心是用VBA的Dir()函数来判断文件是否存在，下面是完整的修改后的代码：

Dim strLocation As String
Dim strLocation1 As String
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String ' 补充变量声明

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

' 先获取邮件签名（需要先Display才能拿到）
With OutMail
    .Display
    Signature = .HTMLBody ' 用HTMLBody保存签名，避免纯文本丢失格式
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = ""
    ' 拼接邮件正文和签名
    .HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>Hello," & "<br>" & "<br>" & _
                "some text." & "<br>" & "<br>" & "some text," & "<br>" & Signature
                
    ' 生成动态日期的文件路径
    strLocation = "file location" & Format(Now() - 3, "mm.dd.yy") & ".xlsx"
    strLocation1 = "file location " & Format(Now() - 1, "mm.dd.yy") & ".xlsx"
    
    ' 条件判断添加附件
    If Dir(strLocation) <> "" Then
        ' 第一个路径文件存在，添加它
        .Attachments.Add strLocation
    Else
        ' 第一个文件不存在，添加备用路径的文件
        .Attachments.Add strLocation1
    End If
End With

' 释放对象（好习惯）
Set OutMail = Nothing
Set OutApp = Nothing

关键逻辑说明： #

• 文件存在性检查：Dir(strLocation) <> "" 是VBA中判断文件是否存在的常用方法，如果Dir()返回非空字符串，说明指定路径的文件存在。
• 动态日期生成：Format(Now() - 3, "mm.dd.yy") 会生成当前日期往前推3天的日期，格式为月.日.年（两位）；Now() - 1则是昨天的日期，你可以根据需求调整天数。
• 签名处理：先调用.Display方法弹出邮件窗口，才能获取到默认的HTML格式签名，之后把正文和签名拼接在一起，避免签名丢失。
• 对象释放：最后释放Outlook相关对象，避免不必要的内存占用。

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