Bỏ qua nội dung chính

Làm cách nào để thay đổi mặc định sự kiện cả ngày thành bận trong Outlook?

Theo mặc định, Outlook đặt trạng thái của cuộc hẹn và cuộc họp thành "Bận", nhưng các sự kiện cả ngày để "Miễn phí" (xem ảnh chụp màn hình bên dưới). Bạn cần thay đổi thủ công trạng thái Hiển thị dưới dạng Bận mỗi khi bạn tạo sự kiện cả ngày. Để thay đổi trạng thái hiển thị mặc định của các sự kiện cả ngày thành Bận, bài viết cung cấp cho bạn hai phương pháp.


Thay đổi mặc định của sự kiện cả ngày thành bận bằng cách tạo biểu mẫu tùy chỉnh

Biểu mẫu tùy chỉnh có thể giúp bạn tạo sự kiện cả ngày với biểu mẫu mặc định Hiển thị dưới dạng trạng thái của Bận. Hãy làm như sau.

1. Chuyển sang chế độ xem Lịch. Nhấp chuột Trang Chủ > Bổ nhiệm mới.

2. Trong cửa sổ Cuộc hẹn mới, hãy nhấp vào Nhà phát triển> Thiết kế Biểu mẫu Này.

Lời khuyên: Nếu Nhà phát triển tab không hiển thị trên ruy-băng, vui lòng làm theo các phương pháp trong bài báo này để hiển thị nó.

3. Sau đó, cửa sổ cuộc hẹn chuyển sang chế độ thiết kế. Bạn cần nhấp vào (Tr.2) tab.

4. Kéo Sự kiện cả ngày lĩnh vực và Hiển thị thời gian dưới dạng lĩnh vực từ Bộ chọn trường ngăn riêng với bảng dưới (Tr.2) chuyển hướng

5. Nhấp chuột phải vào phần kéo ra Sự kiện cả ngày trường và chọn Bất động sản từ trình đơn ngữ cảnh.

6. bên trong Bất động sản hộp thoại, bạn cần cấu hình như sau.

6.1) Đi tới Giá trị chuyển hướng;
6.2) Trong Giá trị ban đầu phần, kiểm tra Đặt giá trị ban đầu của trường này thành cái hộp;
6.3) Nhập giá trị "Thật" vào hộp văn bản;
6.4) Nhấp vào OK cái nút. Xem ảnh chụp màn hình:

7. Nhấp chuột phải vào hộp tổ hợp của Hiển thị thời gian dưới dạng trường và nhấp chuột Bất động sản từ trình đơn ngữ cảnh.

8. bên trong Bất động sản hộp thoại, bạn cần cấu hình như sau.

8.1) Đi tới Giá trị chuyển hướng;
8.2) Trong Giá trị ban đầu phần, kiểm tra Đặt giá trị ban đầu của trường này thành cái hộp;
8.3) Nhập một số “2”Vào hộp văn bản;
8.4) Nhấp vào OK cái nút. Xem ảnh chụp màn hình:

9. nhấp chuột Xuất bản > Xuất bản Biểu mẫu dưới dạng trên dải băng.

10. bên trong Xuất bản Biểu mẫu dưới dạng hộp thoại, bạn cần:

10.1) Chọn một thư mục đích cho biểu mẫu tùy chỉnh trong Nhìn vào danh sách thả xuống. Ở đây tôi chọn Thư viện Mẫu cá nhân mục;
10.2) Đặt tên cho biểu mẫu tùy chỉnh trong Tên hiển thị hộp văn bản;
10.3) Nhấp vào Xuất bản cái nút. Xem ảnh chụp màn hình:

11. Đóng cửa sổ Cuộc hẹn mà không lưu.

12. Từ bây giờ, khi bạn cần tạo sự kiện cả ngày với trạng thái Hiển thị dưới dạng mặc định thành Bận, vui lòng chuyển sang Xem Lịch xem và nhấp vào Trang Chủ > Mục mới > Biểu mẫu tùy chỉnh > “Tên của biểu mẫu tùy chỉnh”.

Lưu ý: Để tạo sự kiện cả ngày với trạng thái Hiển thị dưới dạng mặc định thành “Miễn phí”, chỉ cần làm như bình thường: nhấp vào Trang Chủ > Bổ nhiệm mới, và sau đó kiểm tra Sự kiện cả ngày hộp trong Bổ nhiệm cửa sổ.


Thay đổi mặc định sự kiện cả ngày thành bận bằng cách sử dụng VBA

Phương pháp trên có quá nhiều bước. Nếu bạn luôn cần tạo sự kiện cả ngày với trạng thái Hiển thị dưới dạng mặc định là “Bận”, thì mã VBA sau có thể giúp bạn dễ dàng hoàn thành công việc.

1. Khởi chạy Outlook của bạn, nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp vào Project1 > Đối tượng Microsoft Outlook > ĐâyOutlookSession để mở ĐâyOutlookSession (Mã) cửa sổ, và sau đó sao chép mã sau vào cửa sổ mã này.

Mã VBA: Đặt mặc định trạng thái sự kiện Cả ngày thành “Bận”

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Lưu mã VBA và khởi động lại Outlook.

Kể từ bây giờ, sau khi chuyển đổi một cuộc hẹn hoặc một cuộc họp thành một sự kiện cả ngày, Hiển thị dưới dạng trạng thái sẽ hiển thị là "Bận" theo mặc định.


Các bài liên quan

Thay đổi thời gian nhắc nhở mặc định của các sự kiện cả ngày trong Outlook
Thông thường, thời gian nhắc mặc định của sự kiện cả ngày là 18 giờ trong Outlook 2007/2010 và 0.5 ngày trong Outlook 2013. Đôi khi, thời gian nhắc mặc định của sự kiện cả ngày có thể không phù hợp với lịch làm việc của bạn. Sau đây chúng tôi sẽ giới thiệu cách thay đổi thời gian nhắc nhở mặc định của các sự kiện cả ngày trong Microsoft Outlook.

Thay đổi thời gian theo dõi mặc định trong Outlook
Như chúng ta đã biết, khi chúng tôi thêm lời nhắc theo dõi cho email trong Outlook, thời gian theo dõi mặc định là 4:30 chiều (hoặc thời gian khác tùy thuộc vào giờ làm việc của bạn). Tuy nhiên, bạn có thể muốn thay đổi thời gian theo dõi mặc định và để nó nhắc bạn vào đầu giờ làm việc, chẳng hạn như 9:00 sáng. Trong bài viết này, tôi sẽ hướng dẫn bạn cách thay đổi thời gian theo dõi mặc định trong Outlook.

Thay đổi vị trí lưu trữ mặc định trong Outlook
Theo mặc định, Outlook có vị trí mặc định cho các tệp lưu trữ. Bên cạnh vị trí mặc định, bạn có thể đặt vị trí lưu trữ của riêng mình cho các tệp lưu trữ của mình. Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách thay đổi vị trí lưu trữ mặc định trong Outlook một cách chi tiết.

Thay đổi vị trí lưu tệp đính kèm mặc định trong Outlook
Bạn đã chán ngấy với việc tìm vị trí tệp đính kèm mà bạn đã chỉ định mỗi khi khởi chạy Outlook chưa? Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách thay đổi vị trí tệp đính kèm mặc định. Sau đó, thư mục lưu tệp đính kèm được chỉ định sẽ tự động được mở mỗi khi bạn lưu tệp đính kèm ngay cả khi bạn khởi động lại Outlook.

Thay đổi thời gian mặc định để giao hàng trễ trong Outlook
Hướng dẫn này cung cấp mã VBA để giúp bạn thay đổi thời gian mặc định cho tùy chọn phân phối trễ trong Outlook.


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations