Einige Benutzer möchten, dass Outlook je nach Arbeitszeit automatisch zwischen Online- und Offline-Status wechselt. In diesem Artikel werden wir Ihnen eine kurze Methode vorstellen.
Das Einstellen von Outlook online oder offline ist sehr einfach. Um Outlook in den Offline-Status zu versetzen, können Sie einfach zur Registerkarte "Senden / Empfangen" wechseln und auf die Schaltfläche "Offline arbeiten" klicken. Um zum Online-Status zurückzukehren, klicken Sie einfach erneut auf diese Schaltfläche. Einige Benutzer hoffen jedoch, dass Outlook außerhalb der Arbeitszeit automatisch in den Offline-Status wechseln und innerhalb der Arbeitszeit wieder online gehen kann. Obwohl Outlook eine solche Funktion nicht bietet, können Sie dennoch den folgenden VBA-Code verwenden, um dies zu erreichen.
Automatische Einstellung von Outlook online oder offline basierend auf Ihren Arbeitszeiten
- Starten Sie als Erstes Ihre Outlook-Anwendung.
- Nachdem Sie Zugriff auf Outlook erhalten haben, sollten Sie Ihren Aufgabenordner öffnen.
- Als Nächstes sollten Sie ein täglich wiederkehrendes Aufgabenelement erstellen.
- Klicken Sie im Menüband auf die Schaltfläche "Neue Aufgabe".
- Geben Sie dann "Offline" in die Betreffzeile der Aufgabe ein.
- Klicken Sie anschließend auf der Registerkarte "Aufgabe" auf die Schaltfläche "Wiederholung".
- Wählen Sie im Popup-Dialogfeld "Tägliches" Wiederholungsmuster aus, aktivieren Sie "Kein Enddatum" und klicken Sie auf "OK".
- Als nächstes sollten Sie eine Erinnerung um „5:00 Uhr“ aktivieren.
- Zuletzt klicken Sie auf die Schaltfläche "Speichern und schließen".
- Anschließend müssen Sie eine weitere täglich wiederkehrende Aufgabe mit dem Namen "Online" erstellen und um "8:00 Uhr" eine Erinnerung aktivieren (siehe Abbildung unten):
- Drücken Sie anschließend im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Als Nächstes erhalten Sie Zugriff auf den Outlook VBA-Editor, in dem Sie das Projekt „ThisOutlookSession“ suchen und öffnen müssen.
- Kopieren Sie später den folgenden VBA-Code in dieses Projekt.
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
- Schließlich können Sie Outlook neu starten, um dieses Makro zu aktivieren.
- Von nun an ist Ihr Outlook während der Arbeitszeit online und wechselt außerhalb der Arbeitszeit automatisch in den Offline-Status.
Ihr letzter Ausweg bei Outlook-Abstürzen
Obwohl Outlook über mehrere Funktionen verfügt, kann sich Outlook dennoch nicht vor Fehlern und Beschädigungen schützen. Aber keine Panik. Solange Sie ausreichende Vorsichtsmaßnahmen treffen, können Sie Ihre Outlook-Daten dennoch effektiv schützen. Beispielsweise sollten Sie Ihre PST-Dateien regelmäßig sichern, da Sie durch Sicherungen zurückkehren können korrupte PST Daten. Auch ein leistungsstarkes Reparaturwerkzeug wie DataNumen Outlook Repairist auch eine Frage der Notwendigkeit.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX