Niektórzy użytkownicy chcieliby, aby Outlook automatycznie przełączał się między stanem online i offline na podstawie ich godzin pracy. Dlatego w tym artykule udostępnimy Ci szybką metodę.
W rzeczywistości ustawienie programu Outlook w trybie online lub offline jest bardzo łatwe. Aby zmienić Outlooka w stan offline, wystarczy przełączyć się na zakładkę „Wyślij / Odbierz” i nacisnąć przycisk „Pracuj w trybie offline”. Aby wrócić do stanu online, po prostu naciśnij ponownie ten przycisk. Jednak niektórzy użytkownicy mają nadzieję, że program Outlook może automatycznie przełączyć się do stanu offline, gdy jest poza godzinami pracy i powrócić do trybu online w godzinach pracy. Chociaż program Outlook nie zapewnia takiej funkcji, nadal możesz użyć następującego kodu VBA, aby to osiągnąć.
Automatyczne ustawianie programu Outlook w trybie online lub offline na podstawie godzin pracy
- Na samym początku uruchom aplikację Outlook.
- Następnie, po uzyskaniu dostępu do programu Outlook, należy otworzyć folder Zadania.
- Następnie powinieneś utworzyć codzienny cykliczny element Zadania.
- Kliknij przycisk „Nowe zadanie” na wstążce.
- Następnie wpisz „Offline” w temacie zadania.
- Następnie kliknij przycisk „Powtarzanie” w zakładce „Zadanie”.
- W wyskakującym oknie dialogowym wybierz wzorzec powtarzania „Codziennie”, włącz „Brak daty zakończenia” i naciśnij „OK”.
- Następnie należy włączyć Przypomnienie o „5:00”.
- Na koniec naciśnij przycisk „Zapisz i zamknij”.
- Następnie musisz utworzyć kolejne codzienne powtarzające się zadanie o nazwie „Online” i włączyć przypomnienie o godzinie „8:00”, pokazane na poniższym obrazku:
- Następnie w głównym oknie Outlooka naciśnij klawisze „Alt + F11”.
- Następnie uzyskasz dostęp do edytora Outlook VBA, w którym musisz znaleźć i otworzyć projekt „ThisOutlookSession”.
- Później skopiuj następujący kod VBA do tego projektu.
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
- Następnie możesz ponownie uruchomić program Outlook, aby aktywować tę makroinstrukcję.
- Od teraz Twój Outlook będzie w trybie online w godzinach pracy i będzie automatycznie przełączał się w stan offline poza godzinami pracy.
Twoja ostatnia deska ratunku w przypadku awarii programu Outlook
Chociaż program Outlook oferuje wiele funkcji, nadal nie może uniknąć błędów i uszkodzeń. Ale nie panikuj. Dopóki zastosujesz wystarczające środki ostrożności, nadal możesz skutecznie chronić dane programu Outlook. Na przykład powinieneś regularnie tworzyć kopie zapasowe plików PST, ponieważ kopie zapasowe pozwolą Ci wrócić uszkodzony plik PST dane. Zachowaj również potężne narzędzie naprawcze, takie jak DataNumen Outlook Repair, jest również kwestią konieczności.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com