Reply lại email đã gửi (4 người xem)

[minhminh27]

Xin chào các Anh /Chị

Công việc hàng ngày em sẽ gửi báo cáo, kèm theo số liệu báo cáo hôm qua đã gửi.
Nên em muốn reply all lại email đã gửi ngày hôm trước sau đó viết nội dung mail hôm nay vào.
Em có hỏi AI nhưng thử thì chưa tìm thấy email cũ.
Nhờ các Anh/Chị giúp đỡ. Em cảm ơn.

Sub ReplyAllToSentEmail()
    Dim olApp As Object
    Dim olNs As Object
    Dim olFolder As Object
    Dim olMail As Object
    Dim olReply As Object
    Dim i As Long
    Dim sentDate As Date

    ' Mở Outlook
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFolder = olNs.GetDefaultFolder(5) ' 5 = olFolderSentMail

    sentDate = Now - 2 ' 2 ngày trước
    ' Duyệt qua các email trong Sent Items
    For i = olFolder.Items.Count To 1 Step -1
        If TypeName(olFolder.Items(i)) = "MailItem" Then
            Set olMail = olFolder.Items(i)

            ' Kiểm tra điều kiện: tiêu đề, ngày gửi, To và CC
            If olMail.Subject = "11" And _
               olMail.SentOn >= sentDate And _
               InStr(olMail.To, "ABC@gmail.com") > 0 And _
               InStr(olMail.To, "BCD@gmail.com") > 0 And _
               InStr(olMail.CC, "DEF@gmail.com") > 0 Then

                ' Tạo reply all
                Set olReply = olMail.ReplyAll
                olReply.Display 
                Exit For
            End If
        End If
    Next i

    MsgBox "Đã thực hiện Reply All nếu tìm thấy email phù hợp.", vbInformation
End Sub