使用VBA将编辑的同一行中的三个单元格附加到电子邮件中

Sub SendEmailWithCellContents()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strTo As String
    Dim strSubject As String
    Dim strBody As String
    
    ' 设置收件人、主题和邮件正文
    strTo = "recipient@example.com"
    strSubject = "附加单元格内容的邮件"
    strBody = "以下是编辑的同一行中的三个单元格的内容：" & vbCrLf & _
              "单元格1: " & ActiveCell.Offset(0, 0).Value & vbCrLf & _
              "单元格2: " & ActiveCell.Offset(0, 1).Value & vbCrLf & _
              "单元格3: " & ActiveCell.Offset(0, 2).Value
    
    ' 创建Outlook应用程序对象
    Set OutApp = CreateObject("Outlook.Application")
    ' 创建新邮件
    Set OutMail = OutApp.CreateItem(0)
    
    ' 设置邮件属性
    With OutMail
        .To = strTo
        .Subject = strSubject
        .Body = strBody
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub