如何修复发送重复电子邮件而不是附加整个excel文件的VBA代码

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Recipients As String
    Dim Subject As String
    Dim Body As String
    Dim SentEmails As Collection
    Dim EmailInfo As String
    
    ' 设置收件人地址、主题和正文内容
    Recipients = "recipient@example.com"
    Subject = "邮件主题"
    Body = "邮件正文"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 创建已发送邮件信息的集合
    Set SentEmails = New Collection
    
    ' 遍历已发送的邮件信息，检查是否已经发送过相同的邮件
    For Each EmailInfo In SentEmails
        If EmailInfo = Recipients & "|" & Subject Then
            ' 如果已经发送过相同的邮件，则跳过发送邮件的步骤
            Exit Sub
        End If
    Next EmailInfo
    
    ' 添加已发送邮件信息到集合中
    SentEmails.Add Recipients & "|" & Subject
    
    ' 设置邮件的收件人、主题和正文内容
    With OutlookMail
        .To = Recipients
        .Subject = Subject
        .Body = Body
        ' 添加其他邮件附件等操作
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub