Theo mặc định, khi bạn tạo cuộc hẹn hoặc cuộc họp, thời lượng mặc định được đặt thành nửa giờ. Nếu muốn thay đổi, bạn có thể tham khảo 2 cách được giới thiệu trong bài viết này.
Như bạn thấy, khi tạo cuộc hẹn hoặc cuộc họp mới, thời lượng của mục mới sẽ tự động được đặt là 30 phút. Tuy nhiên, trên thực tế, điều này không phù hợp với hầu hết người dùng. Do đó, nhiều người muốn thay đổi thời lượng mặc định của cuộc hẹn và cuộc họp theo sở thích của riêng họ. Tập trung vào yêu cầu này, chúng tôi sẽ hướng dẫn bạn 2 cách. Hãy đọc tiếp để tìm hiểu chi tiết.
Phương pháp 1: Thay đổi thang thời gian
- Trước tiên, hãy mở Outlook.
- Sau đó chuyển sang ngăn “Lịch” và mở thư mục lịch mong muốn.
- Tiếp theo, chuyển sang tab “Chế độ xem” và chọn “Thay đổi chế độ xem” > “Lịch”.
- Sau đó, nhấp vào nút “Xem cài đặt”.
- Trong hộp thoại bật lên của “Cài đặt chế độ xem nâng cao: Lịch”, nhấp vào nút “Cài đặt khác”.
- Sau đó, trong hộp thoại tiếp theo, bạn có thể thay đổi thang thời gian. Chọn một khoảng thời gian dựa trên thời lượng mong muốn của bạn. Ở đây chỉ có 6 lựa chọn.
- Sau đó, nhấp vào một số nút “OK” để đóng tất cả các hộp thoại.
- Từ giờ trở đi, khi bạn tạo một cuộc hẹn hoặc cuộc họp mới, thời lượng mặc định sẽ giống với thang thời gian bạn đã chọn.
Tuy nhiên, phương tiện này có 2 nhược điểm lớn nhất. Một là chỉ có 6 tùy chọn để bạn chọn. Bạn không thể chỉ định thời lượng theo ý muốn. Một vấn đề khác là điều này chỉ có thể hoạt động trong chế độ xem “Lịch”. Nếu bạn chuyển sang chế độ xem khác, thời lượng sẽ trở lại nửa giờ. Do đó, hãy chuyển sang phương pháp tiếp theo, phương pháp này có thể loại bỏ những thiếu sót này.
Cách 2: Đổi qua VBA
- Trước tiên, hãy nhấn các nút phím “Alt + F11” trong cửa sổ Outlook.
- Sau đó, trong cửa sổ trình soạn thảo VBA tiếp theo, hãy mở dự án “ThisOutlookSession”.
- Tiếp theo sao chép và dán các mã VBA sau vào đó.
Private WithEvents objInspectors As Outlook.Inspectors
Private 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_Open(Cancel As Boolean)
'Set the default duration of new appointment
If objAppointment.CreationTime = #1/1/4501# Then
objAppointment.Duration = "50"
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
'When you disable the "All Day Event"
'Change the default duration of the current appointment
If Name = "AllDayEvent" Then
If objAppointment.AllDayEvent = False Then
objAppointment.Duration = "50"
End If
End If
End Sub
- Sau đó, ký mã này.
- Sau đó thay đổi cài đặt macro của bạn để cho phép macro được ký điện tử.
- Cuối cùng, hãy khởi động lại Outlook để kích hoạt macro.
- Sau đó, thời lượng của cuộc hẹn và cuộc họp sẽ được đặt bằng với độ dài đã xác định trong mã VBA, giống như hình ảnh sau đây.
Tránh mất dữ liệu Outlook đau đớn
Không ai sẵn sàng bị mất dữ liệu Outlook PST. Do đó, nếu bạn muốn thoát khỏi tình trạng mất dữ liệu PST khó chịu, bạn phải thực hiện 2 biện pháp phòng ngừa bắt buộc. Một là sao lưu dữ liệu PST nhất quán và cập nhật. Một cách khác là nắm giữ một công cụ sửa chữa có uy tín, chẳng hạn như DataNumen Outlook Repair, có thể sửa PST các vấn đề một cách hiệu quả.
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 thiệt 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