minhminh27
Thành viên chính thức


- Tham gia
- 15/11/24
- Bài viết
- 55
- Được thích
- 34
- Giới tính
- Nam
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.
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.
Mã:
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