發郵件附兩個:檔案1,檔案2用VBA 怎麼表達

要通过VBA发送带有附件的邮件，您可以使用`Outlook`应用程序对象和相关属性来实现。下面是一个示例代码，演示如何发送带有两个附件的邮件：

Sub SendEmailWithAttachments()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Attachment1 As String
    Dim Attachment2 As String
    
    ' 设置附件的文件路径
    Attachment1 = "C:\路径\文件1.xlsx"
    Attachment2 = "C:\路径\文件2.docx"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件项
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    With OutlookMail
        ' 设置收件人、主题和正文等属性
        .To = "收件人邮箱地址"
        .Subject = "邮件主题"
        .Body = "邮件正文内容"
        
        ' 添加附件
        .Attachments.Add Attachment1
        .Attachments.Add Attachment2
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象变量的引用
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

在上述代码中，您需要将`Attachment1`和`Attachment2`变量的值修改为您要发送的实际文件路径。同时，还需要将`.To`属性设置为收件人的邮箱地址，`.Subject`属性设置为邮件的主题，`.Body`属性设置为邮件的正文内容。

请注意，此代码使用的是Outlook应用程序来发送邮件。因此，您的计算机上需要安装并配置Outlook客户端。另外，由于涉及到访问您的文件系统和发送邮件，可能需要在VBA中启用相关的引用和权限。

希望这可以帮助您实现通过VBA发送带有附件的邮件。如果您有任何进一步的问题，请随时提问。