vba根据特定值和到期日发送电子邮件

Sub SendEmailBasedOnValueAndDueDate()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim rng As Range
    Dim cell As Range
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 遍历特定值和到期日所在的单元格范围
    Set rng = Range("A1:A10") ' 假设特定值和到期日在A1:A10范围内
    For Each cell In rng
        If cell.Value = "特定值" And cell.Offset(0, 1).Value <= Date Then
            ' 创建邮件对象
            Set OutlookMail = OutlookApp.CreateItem(0)
            
            ' 设置邮件内容
            With OutlookMail
                .To = "收件人邮箱地址"
                .Subject = "邮件主题"
                .Body = "邮件内容"
                ' 添加附件等操作
                ' .Attachments.Add "附件路径"
                
                ' 发送邮件
                .Send
            End With
            
            ' 释放邮件对象
            Set OutlookMail = Nothing
        End If
    Next cell
    
    ' 释放Outlook应用程序对象
    Set OutlookApp = Nothing
End Sub