Ako automaticky nastaviť Outlook online alebo offline na základe vašej pracovnej doby

Niektorí používatelia by chceli, aby program Outlook automaticky prepínal medzi online a offline stavom na základe ich pracovnej doby. V tomto článku s vami teda zdieľame rýchlu metódu.

Nastavenie aplikácie Outlook online alebo offline je v skutočnosti veľmi jednoduché. Ak chcete Outlook zmeniť na offline, stačí prepnúť na kartu „Odoslať a prijať“ a stlačiť tlačidlo „Pracovať offline“. Ak sa chcete vrátiť do stavu online, jednoducho stlačte toto tlačidlo znova. Niektorí používatelia však dúfajú, že program Outlook sa môže automaticky prepnúť do stavu offline, keď je mimo pracovnej doby, a vrátiť sa do režimu online v pracovnej dobe. Aj keď program Outlook takúto funkciu neposkytuje, môžete na jej dosiahnutie použiť nasledujúci kód VBA.

Automaticky nastavte Outlook online alebo offline na základe vašej pracovnej doby

1. Na samom začiatku spustite aplikáciu Outlook.
2. Potom, čo získate prístup k svojmu Outlooku, mali by ste otvoriť priečinok Úlohy.
3. Ďalej by ste mali vytvoriť každodenne sa opakujúcu položku úlohy.

• Kliknite na tlačidlo „Nová úloha“ na páse s nástrojmi.
• Potom zadajte do riadku Predmet úlohy „Offline“.
• Ďalej kliknite na tlačidlo „Opakovanie“ na karte „Úloha“.
• V rozbaľovacom dialógovom okne zvoľte vzor opakovania „Denne“, povoľte „Bez dátumu ukončenia“ a stlačte „OK“.
• Ďalej by ste mali povoliť Pripomenutie o „5:00“.
• Nakoniec stlačte tlačidlo „Uložiť a zavrieť“.

4. Následne musíte vytvoriť ďalšiu každodenne sa opakujúcu úlohu nazvanú „Online“ a povoliť pripomienku o „8:00“, ktorá sa zobrazuje ako obrázok nižšie:
5. Potom v hlavnom okne Outlooku stlačte klávesové skratky „Alt + F11“.
6. Ďalej získate prístup k editoru Outlook VBA, v ktorom musíte nájsť a otvoriť projekt „ThisOutlookSession“.
7. Neskôr skopírujte nasledujúci kód VBA do tohto 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

8. Nakoniec môžete reštartovať Outlook, aby ste toto makro aktivovali.
9. Odteraz bude váš Outlook online v pracovnej dobe a mimo pracovnej doby sa automaticky prepne do stavu offline.

Vaša posledná možnosť v prípade zlyhania aplikácie Outlook

Aj keď sa Outlook môže pochváliť viacerými funkciami, nemôže sa stále vyhýbať chybám a poškodeniam. Ale neprepadajte panike. Pokiaľ vykonáte dostatočné preventívne opatrenia, môžete svoje údaje programu Outlook účinne chrániť. Napríklad by ste mali pravidelne zálohovať svoje súbory PST, pretože zálohy vám umožnia získať späť skorumpovaný PST údaje. Tiež si ponecháme výkonný nástroj na opravu, napr DataNumen Outlook Repair, je tiež nevyhnutnosťou.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S