Hoe u Outlook automatisch online of offline instelt op basis van uw werktijden

Outlook-oplossingen 29 september 2025

Sommige gebruikers willen dat Outlook automatisch schakelt tussen online en offline status op basis van hun werkuren. Daarom zullen we in dit artikel een snelle methode met u delen.

Eigenlijk is het heel eenvoudig om Outlook online of offline in te stellen. Om Outlook in offline status te veranderen, kunt u gewoon overschakelen naar het tabblad "Verzenden / ontvangen" en op de knop "Offline werken" drukken. En om terug te keren naar de online status, drukt u gewoon opnieuw op deze knop. Sommige gebruikers hopen echter dat Outlook automatisch kan overschakelen naar de offline-status wanneer het buiten de werkuren is en binnen werkuren weer online kan worden. Hoewel Outlook een dergelijke functie niet biedt, kunt u nog steeds de volgende VBA-code gebruiken om dit te bereiken.

Stel Outlook automatisch online of offline in op basis van uw werktijden

Stel Outlook automatisch online of offline in op basis van uw werktijden

  1. Start allereerst de Outlook-applicatie.
  2. Nadat u toegang heeft gekregen tot uw Outlook, moet u uw map Taken openen.
  3. Vervolgens moet u een dagelijks terugkerend taakitem maken.
  • Klik op de knop "Nieuwe taak" in het lint.
  • Voer vervolgens "Offline" in de onderwerpregel van de taak in.
  • Klik vervolgens op de knop "Herhaling" onder het tabblad "Taak".
  • Selecteer in het pop-upvenster "Dagelijks" herhalingspatroon, schakel "Geen einddatum" in en druk op "OK".Maak een dagelijks terugkerend taakitem
  • Vervolgens moet u om 5:00 uur een herinnering inschakelen.Schakel een herinnering in om 5:00 uur
  • Druk ten slotte op de knop "Opslaan en sluiten".
  1. Vervolgens moet u nog een dagelijks terugkerende taak aanmaken met de naam "Online" en een herinnering inschakelen om "8:00 uur", weergegeven als de onderstaande afbeelding:Maak nog een dagelijks terugkerende taak met de naam 'Online'
  2. Druk daarna in het hoofdvenster van Outlook op de toetsen "Alt + F11".
  3. Vervolgens krijgt u toegang tot de Outlook VBA-editor, waarin u het "ThisOutlookSession" -project moet zoeken en openen.
  4. Kopieer later de volgende VBA-code naar dit project.
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

VBA-code - stel Outlook automatisch online of offline in op basis van uw werktijden

  1. Uiteindelijk kunt u Outlook opnieuw opstarten om deze macro te activeren.
  2. Vanaf nu is uw Outlook tijdens werkuren online en schakelt het automatisch over naar de offline status buiten werkuren.

Uw laatste redmiddel in het geval van een Outlook-crash

Hoewel Outlook over meerdere functies beschikt, kan Outlook nog steeds niet wegblijven van fouten en schade. Maar geen paniek. Zolang u voldoende voorzorgsmaatregelen treft, kunt u uw Outlook-gegevens nog steeds effectief beschermen. U moet bijvoorbeeld regelmatig een back-up van uw PST-bestanden maken, omdat u met back-ups terug kunt komen corrupte PST gegevens. Houd ook een krachtig reparatietool bij, zoals DataNumen Outlook Repair, is ook een kwestie van noodzaak.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.