{Excel}多个命令按钮，可通过电子邮件发送不同行

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim rng As Range
    Dim cell As Range
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的主题、收件人、正文等信息
    OutlookMail.Subject = "测试邮件"
    OutlookMail.To = "example@example.com"
    OutlookMail.Body = "这是一封测试邮件"
    
    ' 遍历选定的行，发送邮件
    Set rng = Selection
    For Each cell In rng.Rows
        ' 发送邮件
        OutlookMail.Send
    Next cell
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub