当单元格等于另一个工作表中的单元格时，VBA发送电子邮件

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim ws As Worksheet
    Dim cellValue As String
    Dim mailSubject As String
    Dim mailBody As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' 设置监视的单元格范围
    Set rng = Sheets("Sheet2").Range("A1")
    
    ' 判断目标单元格是否在监视范围内
    If Not Intersect(Target, rng) Is Nothing Then
        ' 获取目标单元格的值
        cellValue = Target.Value
        
        ' 判断单元格的值是否满足条件
        If cellValue = "条件值" Then
            ' 创建Outlook应用程序对象
            Set outlookApp = CreateObject("Outlook.Application")
            
            ' 创建新邮件
            Set outlookMail = outlookApp.CreateItem(0)
            
            ' 设置邮件主题和正文内容
            mailSubject = "邮件主题"
            mailBody = "邮件正文"
            
            ' 设置收件人
            outlookMail.Recipients.Add "收件人邮箱地址"
            
            ' 设置邮件主题和正文
            outlookMail.Subject = mailSubject
            outlookMail.Body = mailBody
            
            ' 发送邮件
            outlookMail.Send
            
            ' 释放对象
            Set outlookMail = Nothing
            Set outlookApp = Nothing
        End If
    End If
End Sub