Excel VBA通过查找标题" email“并将电子邮件发送到匹配标题下的第一个单元格，发送到电子邮件地址

Sub SendEmail()
    Dim rng As Range
    Dim cell As Range
    Dim emailSubject As String
    Dim emailBody As String
    Dim emailTo As String
    
    ' 设置邮件主题和正文内容
    emailSubject = "邮件主题"
    emailBody = "邮件正文内容"
    
    ' 查找标题为"email"的单元格
    Set rng = Range("A1:Z1").Find("email", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了匹配的单元格
    If Not rng Is Nothing Then
        ' 获取匹配单元格下方的第一个单元格
        Set cell = rng.Offset(1, 0)
        
        ' 获取电子邮件地址
        emailTo = cell.Value
        
        ' 发送邮件
        SendMail emailTo, emailSubject, emailBody
    End If
End Sub

Sub SendMail(emailTo As String, emailSubject As String, emailBody As String)
    ' 在这里编写发送邮件的代码
    ' 这里可以使用腾讯云的邮件推送服务或其他邮件发送服务商的API来发送邮件
    ' 例如，腾讯云的邮件推送服务：https://cloud.tencent.com/document/product/1005/30814
    
    ' 发送邮件的代码示例：
    ' ...
End Sub