Trong Outlook, khi bạn bật tính năng “Lặp lại” cho một cuộc hẹn, theo mặc định, cuộc hẹn sẽ được đặt không có ngày kết thúc. Nếu muốn thay đổi và đặt ngày kết thúc mặc định cho các cuộc hẹn định kỳ, bạn có thể sử dụng các phương pháp được giới thiệu trong bài viết này.
Khi bạn tạo một cuộc hẹn mới và nhấp vào nút “Lặp lại”, trong hộp thoại bật lên “Lặp lại cuộc hẹn”, bạn có thể thấy rằng “Không có ngày kết thúc” được chọn theo mặc định, như thể hiện trong hình dưới đây. Nếu không thích điều này và muốn đặt ngày kết thúc mặc định, chẳng hạn như 90 ngày kể từ lần xuất hiện đầu tiên, bạn có thể đọc tiếp. Ở đây chúng tôi sẽ dạy cho bạn 2 cách tiếp cận để nhận ra nó.
Phương pháp 1: Đặt bằng cách thay đổi sổ đăng ký
- Trước tiên, hãy vào "Menu Bắt đầu" và tìm kiếm "regedit".
- Sau đó, nhấp vào chương trình “regedit” được tìm thấy.
- Tiếp theo, hộp thoại “Kiểm soát tài khoản người dùng” sẽ hiển thị, trong đó bạn cần nhấp vào “Có”.
- Sau khi vào cửa sổ “Registry Editor”, hãy điều hướng đến đường dẫn – ” HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Tùy chọn\Lịch”
- Sau đó, nhấp chuột phải vào “Lịch” và chọn “Mới” > “Giá trị DWORD (32-bit)”.
- Sau đó, đặt tên cho giá trị mới này là “RecurrencesDefault”.
- Tiếp theo, nhấp đúp vào giá trị.
- Trong hộp thoại bật lên “Chỉnh sửa Giá trị DWORD (32-bit)”, hãy nhập một số vào trường “Dữ liệu giá trị”. Nó đề cập đến số ngày kể từ ngày hôm nay. Chẳng hạn, nếu là “90”, Outlook sẽ đặt ngày kết thúc lặp lại thành 90 ngày kể từ hôm nay.
- Sau đó, nhấp vào “OK” và thoát khỏi Registry Editor đúng cách.
- Cuối cùng, hãy khởi động lại Outlook và thử tạo một cuộc hẹn định kỳ. Ngày kết thúc của cuộc hẹn sẽ được đặt theo giá trị “RecurrencesDefault”.
Cách 2: Đặt bằng Outlook VBA
- Trước tiên, hãy mở trình chỉnh sửa VBA của Outlook bằng tổ hợp phím “Alt + F11”.
- Sau đó, đặt mã VBA sau vào dự án “ThisOutlookSession”.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
Dim objRecurrencePattern As Outlook.RecurrencePattern
'Change enable "Recurrence"
If Name = "IsRecurring" Then
If objAppointment.IsRecurring = True Then
Set objRecurrencePattern = objAppointment.GetRecurrencePattern
'Change the end date to 30 days from the start date
'Alter "30" as per your needs
objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
End If
End If
End Sub
- Cuối cùng, nhấp vào macro “Application_Startup” và nhấn phím “F5”.
- Hiện tại, bạn có thể tạo một cuộc hẹn mới.
- Sau đó, nhấp vào nút "Lặp lại", sửa đổi cài đặt lặp lại bằng cách giữ nguyên "Không có ngày kết thúc" và nhấp vào "OK".
- Sau đó, bạn có thể nhấp lại vào “Recurrence” để kiểm tra. Bạn sẽ thấy rằng ngày kết thúc đã được thay đổi theo mã VBA của bạn.
Khắc phục tệp Outlook PST không thể truy cập
Bạn đã bao giờ nhận được bất kỳ thông báo lỗi nào liên quan đến "tệp PST không thể truy cập" trong Outlook của mình chưa? Nếu bạn có, làm thế nào bạn đối phó với họ? Có thể Scanpst xuất hiện trong đầu bạn ngay từ đầu. Tuy nhiên khi bạn đã thử nó để sửa chữa Outlook, nó cũng thất bại. Trong trường hợp này, giải pháp cuối cùng của bạn là phần mềm khôi phục dữ liệu có kinh nghiệm như DataNumen Outlook Repair hoặc dịch vụ phục hồi chuyên dụng.
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 sửa lỗi 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