嵌入提交按钮Excel VBA中的电子邮件选项

Private Sub CommandButton1_Click()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的相关属性
    With OutlookMail
        .To = "recipient@example.com" ' 收件人邮箱地址
        .Subject = "邮件主题" ' 邮件主题
        .Body = "邮件内容" ' 邮件内容
        ' 添加附件
        .Attachments.Add "C:\Path\To\File.txt"
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub