编辑Excel VBA模块以仅通过电子邮件发送工作表的最后一行

Sub SendLastRowByEmail()
    Dim LastRow As Long
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
    
    ' 获取工作表的最后一行
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 创建邮件对象
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 邮件内容
    MailBody = "工作表的最后一行数据如下：" & vbCrLf & vbCrLf
    MailBody = MailBody & "列1：" & Cells(LastRow, 1).Value & vbCrLf
    MailBody = MailBody & "列2：" & Cells(LastRow, 2).Value & vbCrLf
    ' 继续添加其他列的数据...
    
    ' 设置邮件属性
    With OutlookMail
        .To = "recipient@example.com" ' 收件人邮箱地址
        .Subject = "工作表最后一行数据" ' 邮件主题
        .Body = MailBody ' 邮件内容
        .Display ' 显示邮件
        '.Send ' 直接发送邮件
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub