Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để ngăn Outlook nhắc nhở quá sớm hoặc quá muộn?

Ví dụ: bạn làm việc từ 9:00 sáng đến 6:00 chiều mỗi ngày, nhưng bây giờ bạn đang đặt lịch hẹn lúc 10:00 sáng và thêm lời nhắc 2 giờ cho việc đó trong Outlook. Điều đó có nghĩa là lời nhắc sẽ hoạt động vào lúc 8 giờ sáng trước khi công việc của bạn bắt đầu. Mặt khác, lời nhắc có thể phát ra vào nửa đêm trong những trường hợp đặc biệt. Điều đó khá bất tiện và một số người dùng Outlook có thể muốn ngăn Outlook nhắc nhở quá sớm hoặc quá muộn. Ở đây tôi sẽ giới thiệu một macro VBA để bạn giải quyết nó trong Outlook.

Tab Office - Cho phép Chỉnh sửa và Duyệt theo Tab trong Office và Giúp Công việc Dễ dàng hơn Nhiều ...
Kutools cho Outlook - Mang đến 100 tính năng nâng cao mạnh mẽ cho Microsoft Outlook
  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo quy tắc; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ mail của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email cùng một lúc; Tự động thêm lời chào khi trả lời; Tự động Thêm Ngày & Giờ vào chủ đề ...
  • Công cụ đính kèm: Tự động tách, Nén tất cả, Đổi tên tất cả, Tự động lưu tất cả ... Báo cáo nhanh, Đếm Thư đã Chọn, Xóa Thư và Địa chỉ Liên hệ Trùng lặp ...
  • Hơn 100 tính năng nâng cao sẽ giải quyết hầu hết các vấn đề của bạn trong Outlook 2021 - 2010 hoặc Office 365. Tính năng đầy đủ Bản dùng thử miễn phí 60 ngày.

Để ngăn Outlook nhắc nhở quá sớm hoặc quá muộn, bạn có thể làm như sau:

Bước 1: Nhấn Khác + F11 trong khi đó để mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Mở rộng Đối tượng Microsoft Outlook trong ngăn bên trái và dán macro VBA sau vào ĐâyOutlookSession.

VBA: Ngăn nhắc nhở quá sớm hoặc quá muộn trong Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Chú thích: Bạn có thể chỉ định thời gian làm việc của mình bằng cách thay đổi các thông số sau trong mã VBA ở trên:
Nhắc nhởMaxHour = 20
Nhắc nhởMinHour = 9

Bước 3: Lưu VBA này và khởi động lại Microsoft Outlook của bạn.

Kể từ bây giờ, khi tạo một cuộc hẹn với thời gian nhắc nhở bạn chỉ định thời gian làm việc, nó sẽ bật lên một hộp thoại để nhắc bạn sau khi bạn nhấp vào Lưu & Đóng .

Nếu thời gian nhắc nhở sớm hơn thời gian nhắc nhở được chỉ địnhMinHour, hãy nhấp vào trong hộp thoại, nó sẽ thay đổi thời gian nhắc nhở và làm cho âm thanh nhắc nhở phát ra tại lời nhắc đã chỉ địnhMinHour.

Nếu thời gian nhắc muộn hơn thời gian nhắc nhở đã chỉ địnhMaxHour, hãy nhấp vào trong hộp thoại, nó sẽ thay đổi thời gian nhắc nhở và nhắc bạn theo lời nhắc đã chỉ địnhMaxHour.

LƯU Ý Mã VBA này hoạt động tốt với Outlook 2013, nhưng không hoạt động với Outlook 2010 và 2007.


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL