Một số người dùng muốn đặt Outlook tự động chuyển đổi giữa trạng thái trực tuyến và ngoại tuyến dựa trên giờ làm việc của họ. Vì vậy, trong bài viết này, chúng tôi sẽ chia sẻ một phương pháp nhanh chóng với bạn.
Trên thực tế, việc cài đặt Outlook trực tuyến hoặc ngoại tuyến rất dễ dàng. Để chuyển Outlook sang trạng thái ngoại tuyến, bạn chỉ cần chuyển sang tab “Gửi/Nhận” và nhấn nút “Làm việc Ngoại tuyến”. Và để quay lại trạng thái trực tuyến, chỉ cần nhấn lại vào nút này. Tuy nhiên, một số người dùng hy vọng rằng Outlook có thể tự động chuyển sang trạng thái ngoại tuyến khi hết giờ làm việc và trở lại trạng thái trực tuyến trong giờ làm việc. Mặc dù Outlook không cung cấp tính năng như vậy nhưng bạn vẫn có thể sử dụng mã VBA sau để đạt được tính năng này.
Tự động Đặt Outlook Trực tuyến hoặc Ngoại tuyến Dựa trên Giờ Làm việc của Bạn
- Ngay từ đầu, hãy mở ứng dụng Outlook của bạn.
- Sau đó, sau khi có quyền truy cập vào Outlook của mình, bạn nên mở thư mục Nhiệm vụ của mình.
- Tiếp theo, bạn nên tạo một mục Nhiệm vụ định kỳ hàng ngày.
- Nhấp vào nút “Tác vụ mới” trong ruy-băng.
- Sau đó nhập “Ngoại tuyến” trong dòng chủ đề Nhiệm vụ.
- Tiếp theo, nhấp vào nút "Lặp lại" trong tab "Nhiệm vụ".
- Trong hộp thoại bật lên, chọn mẫu lặp lại “Hàng ngày”, bật “Không có ngày kết thúc” và nhấn “OK”.
- Tiếp theo, bạn nên bật Lời nhắc lúc “5:00 chiều”.
- Cuối cùng nhấn nút “Save & Close”.
- Sau đó, bạn cần tạo một Nhiệm vụ lặp lại hàng ngày khác có tên là “Trực tuyến” và bật lời nhắc lúc “8:00 sáng”, được hiển thị như hình ảnh bên dưới:
- Sau đó, trong cửa sổ chính của Outlook, nhấn các nút phím “Alt + F11”.
- Tiếp theo, bạn sẽ có quyền truy cập vào trình soạn thảo VBA của Outlook, trong đó bạn cần tìm và mở dự án “ThisOutlookSession”.
- Sau đó sao chép mã VBA sau vào dự án này.
Dim objNameSpace As Outlook.NameSpace
'Set Online/Offline Status on Outlook Startup
Private Sub Application_Startup()
Set objNameSpace = Application.GetNamespace("MAPI")
'If now is before 8:00 AM or after 5:00 PM on Outlook startup
If Now() < DateSerial(Year(Now), Month(Now), Day(Now)) + #8:00:00 AM# Or Now() > DateSerial(Year(Now), Month(Now), Day(Now)) + #5:00:00 PM# Then
'If Outlook is online
If objNameSpace.Offline = False Then
'set it offline
ActiveExplorer().CommandBars.FindControl(, 5613).Execute
End If
'If now is between 8:00 AM and 5:00 PM
Else
'If Outlook is offline
If objNameSpace.Offline = True Then
'Set it online
ActiveExplorer().CommandBars.FindControl(, 5613).Execute
End If
End If
End Sub
'Change Online/Offline Status at Specific Time
Private Sub Application_Reminder(ByVal Item As Object)
Dim objOfflineTask As Outlook.TaskItem
Dim objOnlineTask As Outlook.TaskItem
Set objNameSpace = Application.GetNamespace("MAPI")
If TypeOf Item Is TaskItem Then
If Item.Subject = "Offline" Then
Set objOfflineTask = Item
'If Outlook is online when "Offline" task reminder alerts
If objNameSpace.Offline = False Then
'Set Outlook offline
ActiveExplorer().CommandBars.FindControl(, 5613).Execute
End If
'Clear the reminder by marking task complete
objOfflineTask.MarkComplete
ElseIf Item.Subject = "Online" Then
Set objOnlineTask = Item
'If Outlook is offline when "Online" task reminder alerts
If objNameSpace.Offline = True Then
'Set Outlook online
ActiveExplorer().CommandBars.FindControl(, 5613).Execute
End If
objOnlineTask.MarkComplete
End If
End If
End Sub
- Cuối cùng, bạn có thể khởi động lại Outlook để kích hoạt macro này.
- Kể từ bây giờ, Outlook của bạn sẽ trực tuyến trong giờ làm việc và tự động chuyển sang trạng thái ngoại tuyến ngoài giờ làm việc.
Biện pháp cuối cùng của bạn trong trường hợp Outlook gặp sự cố
Mặc dù Outlook tự hào về nhiều tính năng nhưng Outlook vẫn không thể tránh khỏi các lỗi và hư hỏng. Nhưng đừng hoảng sợ. Miễn là bạn thực hiện đầy đủ các biện pháp phòng ngừa, bạn vẫn có thể bảo vệ dữ liệu Outlook của mình một cách hiệu quả. Chẳng hạn, bạn nên sao lưu các tệp PST của mình thường xuyên vì các bản sao lưu sẽ cho phép bạn lấy lại PST hỏng dữ liệu. Ngoài ra, giữ một công cụ sửa chữa mạnh mẽ, như DataNumen Outlook Repair, cũng là một vấn đề tất yếu.
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 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