如果附件列表中缺少一个文件，Excel VBA不会生成电子邮件

Sub GenerateEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim AttachmentPath As String
    Dim FileExists As Boolean
    
    ' 设置附件路径
    AttachmentPath = "C:\Path\To\Attachment\File.xlsx"
    
    ' 检查文件是否存在
    FileExists = Dir(AttachmentPath) <> ""
    
    ' 如果文件存在，则生成电子邮件
    If FileExists Then
        ' 创建Outlook应用程序对象
        Set OutlookApp = CreateObject("Outlook.Application")
        ' 创建邮件对象
        Set OutlookMail = OutlookApp.CreateItem(0)
        
        ' 设置邮件属性
        With OutlookMail
            .Subject = "邮件主题"
            .Body = "邮件正文"
            .To = "收件人邮箱地址"
            .Attachments.Add AttachmentPath ' 添加附件
            .Display ' 显示邮件
        End With
        
        ' 释放对象
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
    Else
        MsgBox "附件文件不存在！"
    End If
End Sub