Nếu bạn muốn ngăn mình gửi những email cụ thể ngoài giờ làm việc, bạn có thể sử dụng phương pháp được trình bày trong bài viết này. Nó có thể cho phép Outlook tự động kiểm tra xem có phải trong giờ làm việc hay không khi bạn gửi các email cụ thể và trì hoãn việc gửi cho đến giờ làm việc.
Đôi khi, thời điểm bạn soạn và gửi thư không nằm trong giờ làm việc của bạn. Trong trường hợp này, bạn có thể trì hoãn việc gửi email này cho đến giờ làm việc tiếp theo. Nói chung, bạn có thể sử dụng tính năng gốc “Trì hoãn gửi” để trì hoãn những email như vậy. Tuy nhiên, bằng cách đó, bạn nên chỉ định thời gian giao hàng mỗi lần. Nó quá rắc rối. Sau đó, chúng tôi sẽ chia sẻ cho bạn một đoạn mã VBA, mã này có thể tự động kiểm tra xem nó có nằm trong giờ làm việc hay không khi bạn gửi một email cụ thể và nhanh chóng trì hoãn việc gửi nó cho đến giờ làm việc.
Trì hoãn nhanh việc gửi email cụ thể cho đến giờ làm việc
- Ngay từ đầu, hãy khởi chạy chương trình Outlook của bạn.
- Sau đó, trong màn hình chính Outlook mới xuất hiện, bạn có thể nhấn phím “Alt + F11”.
- Tiếp theo, bạn sẽ có quyền truy cập thành công vào trình soạn thảo Outlook VBA.
- Sau đó, bạn cần xác định vị trí và mở dự án “ThisOutlookSession”.
- Sau đó, sao chép mã VBA sau vào cửa sổ dự án này.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As MailItem
Dim NewSendTime As String
Dim bDelayMail As Boolean
Dim nPrompt As Integer
bDelayMail = True
If TypeOf Item Is MailItem Then
Set objMail = Item
'Work on specific emails only
'You can change the conditions as per your needs
If objMail.Recipients.Item(1).Address = "boss@datanumen.com" Then
Select Case Weekday(Date, vbMonday)
'Delay 2 days if today is Saturday
Case 6
NewSendTime = (Date + 2) & " 09:00:00"
'Delay 1 days if today is Saturday
Case 7
NewSendTime = (Date + 1) & " 09:00:00"
Case Else
If DatePart("h", Now) < 9 Then
'Delay to 9 o'clock if now is too early
NewSendTime = Date & " 09:00:00"
ElseIf DatePart("h", Now) > 18 Then
Select Case Weekday(Date, vbMonday)
'Delay 3 days if today is Friday and now is over 6 PM
Case 5
NewSendTime = (Date + 3) & " 09:00:00"
'Delay to 9 o'clock if now is before 6 PM
Case Else
NewSendTime = (Date + 1) & " 09:00:00"
End Select
Else
bDelayMail = False
End If
End Select
If bDelayMail = True And objMail.DeferredDeliveryTime = "1/1/4501" Then
'Ask if to delay sending this email
nPrompt = MsgBox("Outside Working Hours:" & vbCrLf & "Do you want to delay this email until " & NewSendTime & "?", vbYesNo + vbExclamation, "Delay Email")
If nPrompt = vbYes Then
objMail.DeferredDeliveryTime = NewSendTime
Else
objMail.DeferredDeliveryTime = "1/1/4501"
End If
End If
End If
End If
End Sub
- Sau này bạn sẽ được yêu cầu gán chứng chỉ kỹ thuật số cho email này.
- Và sau đó thay đổi cài đặt macro Outlook của bạn để cho phép các macro đã ký.
- Từ nay trở đi, mỗi khi bạn gửi email đạt tiêu chí đã định trước, nếu ngoài giờ làm việc, bạn sẽ nhận được thông báo như hình sau:
- Nếu bạn chọn “Có”, Outlook sẽ lên lịch gửi nó cho đến giờ làm việc.
Cứu các tệp Outlook bị hỏng
Outlook đã nhận được rất nhiều lời khen ngợi nhờ vô số tính năng của nó. Tuy nhiên, nó vẫn có một lỗ hổng chết người. Đó là Outlook dễ bị lỗi và hỏng. Do đó, bạn nên sao lưu các tệp Outlook của mình một cách thường xuyên. Nó có thể giúp bạn tránh bị mất dữ liệu Outlook một cách đau đớn. Ngoài ra, tốt nhất bạn nên có một công cụ sửa chữa mạnh mẽ, chẳng hạn như DataNumen Outlook Repair, có thể sửa chữa triển vọng vấn đề trong vòng vài giây.
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 phục hồi mdf 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