Bài viết này sẽ hướng dẫn bạn một thủ thuật nhanh bằng cách sử dụng VBA để cho phép Outlook tự động nhắc bạn có gửi email thông báo hay không khi bạn chưa nhận được trả lời của một email cụ thể trong một khoảng thời gian cụ thể.
Đôi khi, đối với những email cực kỳ quan trọng, bạn chắc chắn sẽ mong chờ phản hồi của nó. Nói cách khác, bạn phải hy vọng rằng người nhận có thể trả lời bạn càng sớm càng tốt. Ngược lại, miễn là bạn chưa nhận được thư trả lời trong thời gian dự kiến, bạn sẽ gửi lại email thông báo tiếp theo cho người nhận. Vì vậy, để đáp ứng yêu cầu này, ở đây chúng tôi sẽ giới thiệu một phương pháp sử dụng VBA để Outlook tự động cảnh báo và nhắc nhở bạn trong trường hợp như vậy. Đọc tiếp để biết các bước và mã phức tạp.
Nhận thông báo nếu không nhận được phản hồi của một email cụ thể trong thời gian dự kiến
- Ngay từ đầu, start Outlook của bạn.
- Sau đó, bạn cần đặt thời gian nhắc nhở cụ thể cho email cụ thể.
- Đầu tiên, nhấp chuột phải vào email cụ thể.
- Sau đó chọn “Theo dõi” > “Thêm lời nhắc”.
- Trong hộp thoại, bạn có thể đặt thời gian nhắc nhở giống với thời gian cụ thể mà bạn muốn nhận được phản hồi.
- Sau đó, nhấn nút phím “Alt + F11” để truy cập trình soạn thảo Outlook VBA.
- Tiếp theo trong cửa sổ mới, hãy mở dự án “ThisOutlookSession” và sao chép các mã sau vào đó.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
'If receive the reply, clear the flag and remove the reminder
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objSentItems As Outlook.Items
Dim objVariant As Variant
Dim i As Long
Dim strSubject As String
Dim dSendTime As String
Set objSentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class = olMail Then
For i = 1 To objSentItems.Count
If objSentItems.Item(i).Class = olMail Then
Set objVariant = objSentItems.Item(i)
strSubject = LCase(objVariant.Subject)
dSendTime = objVariant.SentOn
If LCase(Item.Subject) = "re: " & strSubject Or InStr(LCase(Item.Subject), strSubject) > 0 Then
If Item.SentOn > dSendTime Then
With objVariant
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End If
End Sub
'Get a prompt asking if to send a notification email
Private Sub Application_Reminder(ByVal Item As Object)
Dim strPrompt As String
Dim nResponse As Integer
Dim objFollowUpMail As Outlook.MailItem
'You can change the subject as per your real case
If (Item.Class = olMail) And (LCase(Item.Subject) = "datanumen outlook repair") Then
strPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
nResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm to Send a Follow-Up Notification Email")
If nResponse = vbYes Then
Set objFollowUpMail = Application.CreateItem(olMailItem)
With objFollowUpMail
.To = Item.Recipients.Item(1).Address
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
.attachments.Add Item
.Display
End With
End If
End If
End Sub
- Sau đó, ký mã này.
- Sau đó thay đổi cài đặt macro Outlook để cho phép các macro được ký điện tử.
- cuối cùng restart Outlook để kích hoạt macro mới. Từ giờ trở đi, Outlook sẽ hoạt động như sau:
- Nếu bạn đã nhận được phản hồi của email cụ thể trước khi lời nhắc của email đó bật lên, Outlook sẽ tự động xóa cờ và tắt lời nhắc.
- Nếu bạn chưa nhận được câu trả lời khi lời nhắc của nó kích hoạt, Outlook sẽ hỏi bạn có gửi email thông báo tiếp theo hay không. Nếu bạn chọn “Có”, email sẽ được gửi đi. Nếu chọn “Không”, lời nhắc sẽ biến mất ngay lập tức.
Giải quyết các vấn đề khó chịu về Outlook
Vì Outlook dễ bị lỗi nên để ngăn chặn Tham nhũng, tốt hơn hết bạn không nên chỉ dựa vào công cụ hộp thư đến, Scanpst.exe. Bạn nên chuẩn bị thêm một công cụ sửa chữa mạnh và uy tín khác như DataNumen Outlook Repair, có thể giải quyết các vấn đề khó chịu mà Scanpst.exe không thể giải quyết.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm tham nhũng sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm