Theo mặc định, bạn không được phép thay đổi thời gian bắt đầu và kết thúc của các sự kiện cả ngày theo ý muốn trong Outlook. Bài viết này sẽ hướng dẫn bạn cách thiết lập thời gian bắt đầu và kết thúc mặc định cho các sự kiện cả ngày theo giờ làm việc của bạn.
Như bạn thấy, khi bạn bật tùy chọn “Sự kiện cả ngày” trong một cuộc hẹn, cả hai trường “Thời gian bắt đầu” và “Thời gian kết thúc” sẽ bị làm mờ. Trong trường hợp này, điều đó có nghĩa là bạn không được phép thay đổi chúng theo ý muốn. Do đó, trong phần tiếp theo, chúng tôi sẽ chia sẻ với bạn một phương pháp để thiết lập thời gian bắt đầu và kết thúc mặc định cho các sự kiện cả ngày dựa trên giờ làm việc của bạn trong Outlook.
Đặt thời gian bắt đầu và kết thúc mặc định cho các sự kiện cả ngày theo giờ làm việc.
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau khi vào màn hình chính của Outlook, bạn có thể nhấn các nút phím “Alt + F11”.
- Sau đó, bạn sẽ có quyền truy cập vào cửa sổ soạn thảo Outlook VBA.
- Trong cửa sổ “Microsoft Visual Basic for Application” hiện tại, bạn cần mở cửa sổ dự án “ThisOutlookSession”.
- Sau đó sao chép mã VBA sau vào dự án này.
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 Inspector.CurrentItem.Class = olAppointment Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
Dim dOccuringDate As Date
If Name = "AllDayEvent" Then
If objAppointment.AllDayEvent = True Then
dOccuringDate = Format(objAppointment.Start, "Short Date")
'Change the Start and End Time as per Working Hours
With objAppointment
.AllDayEvent = False
.Start = dOccuringDate & " 9:00:00 AM"
.End = dOccuringDate & " 6:00:00 PM"
End With
End If
End If
End Sub
Private Sub objAppointment_Open(Cancel As Boolean)
If objAppointment.AllDayEvent = True Then
dOccuringDate = Format(objAppointment.Start, "Short Date")
With objAppointment
.AllDayEvent = False
.Start = dOccuringDate & " 9:00:00 AM"
.End = dOccuringDate & " 6:00:00 PM"
End With
End If
End Sub
- Sau đó, bạn cần phải ký mã này. Nhấp vào “Công cụ” > “Chữ ký”.
- Trong hộp thoại tiếp theo, hãy làm theo hướng dẫn trên màn hình để gán chứng chỉ kỹ thuật số cho dự án VBA mới.
- Sau này, bạn phải thay đổi cài đặt macro Outlook của mình để cho phép các macro được ký điện tử.
- Cuối cùng, bạn có thể khởi động lại ứng dụng Outlook để kích hoạt macro này.
- Từ nay trở đi, mỗi khi bạn bật tùy chọn “Sự kiện cả ngày” trong một cuộc hẹn ở Outlook, thời gian bắt đầu và kết thúc của cuộc hẹn sẽ được thay đổi theo giờ làm việc của bạn, như ảnh chụp màn hình sau:
Truy xuất dữ liệu quý giá từ tệp Outlook bị xâm phạm
Mặc dù Outlook tự hào về nhiều tính năng khác nhau nhưng điều đó không có nghĩa là nó hoàn hảo. Nó vẫn có thể bị hỏng do nhiều yếu tố khác nhau, như vi-rút lây truyền qua email, cách xử lý không đúng cách của con người, v.v. Do đó, ngoài việc sao lưu dữ liệu PST thường xuyên, tốt hơn hết bạn nên chuẩn bị một công cụ sửa lỗi PST bên ngoài mạnh mẽ ở gần, chẳng hạn như DataNumen Outlook Repair. Nó có thể sửa chữa PST vấn đề trong một khoảng thời gian ngắn.
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 chữa 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