如何使用VBA将文件附加到电子邮件中？

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
    .To = "recipient@example.com"
    .Subject = "附件邮件"
    .Body = "这是一封带有附件的邮件。"
End With

objMail.Attachments.Add "C:\Path\to\file.txt"

objMail.Send

Sub AttachFileToEmail()
    Dim objOutlook As Object
    Dim objMail As Object
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "recipient@example.com"
        .Subject = "附件邮件"
        .Body = "这是一封带有附件的邮件。"
        .Attachments.Add "C:\Path\to\file.txt"
    End With
    
    objMail.Send
End Sub