Outlooki automaatne seadistamine võrgus või võrguühenduseta tööajal

Outlooki lahendused September 29, 2025

Mõned kasutajad sooviksid, et Outlook lülitaks automaatselt võrgu- ja võrguühenduseta olekut vastavalt oma tööajale. Niisiis, selles artiklis jagame teiega kiiret meetodit.

Tegelikult on Outlooki võrguühenduseta või võrguühenduseta seadistamine väga lihtne. Outlooki võrguühenduseta olekuks muutmiseks võite lihtsalt lülituda vahekaardile "Saada/vastu võtta" ja vajutada nuppu "Tööta võrguühenduseta". Ja võrguolekusse naasmiseks vajutage lihtsalt seda nuppu uuesti. Mõned kasutajad loodavad aga, et Outlook saab tööajast väljas olles automaatselt lülituda võrguühenduseta olekusse ja naasta tööajal võrguühenduseta. Kuigi Outlook sellist funktsiooni ei paku, saate selle saavutamiseks siiski kasutada järgmist VBA-koodi.

Outlooki automaatne võrgu- või võrguühenduseta seadistamine vastavalt teie tööajale

Outlooki automaatne võrgu- või võrguühenduseta seadistamine vastavalt teie tööajale

  1. Kohe alguses, start oma Outlooki rakendust.
  2. Seejärel peaksite pärast Outlookile juurdepääsu saamist avama kausta Tasks.
  3. Järgmisena peaksite looma igapäevase korduva ülesande üksuse.
  • Klõpsake lindil nuppu "Uus ülesanne".
  • Seejärel sisestage ülesande teemareale "Võrguühenduseta".
  • Järgmisena klõpsake vahekaardi "Ülesanne" all nuppu "Kordumine".
  • Valige hüpikaknas dialoogiboksis "Igapäevane kordusmuster", lubage "Lõppkuupäev puudub" ja vajutage "OK".Looge iga päev korduv ülesanne
  • Järgmisena peaksite lubama meeldetuletuse kell "5:00".Luba meeldetuletus kell 5:00
  • Lõpuks klõpsake nuppu "Salvesta ja sulge".
  1. Seejärel peate looma uue igapäevase korduva ülesande nimega "Online" ja lubama meeldetuletuse kell "8:00", mis on näidatud alloleval pildil:Looge veel üks igapäevane korduv ülesanne nimega "Online"
  2. Pärast seda vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
  3. Järgmisena saate juurdepääsu Outlooki VBA redaktorile, milles peate leidma ja avama projekti „ThisOutlookSession”.
  4. Hiljem kopeerige sellesse projekti järgmine VBA kood.
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-kood – Outlooki automaatne seadistamine veebis või võrguühenduseta, olenevalt teie tööajast

  1. Lõpuks saate restart Outlook selle makro aktiveerimiseks.
  2. Nüüdsest on teie Outlook tööajal võrgus ja väljaspool tööaega lülitub automaatselt võrguühenduseta olekusse.

Teie viimane abinõu Outlooki krahhi korral

Kuigi Outlookil on mitu funktsiooni, ei saa Outlook siiski vigadest ja kahjustustest eemale hoida. Kuid ärge sattuge paanikasse. Kui võtate piisavalt ettevaatusabinõusid, saate oma Outlooki andmeid siiski tõhusalt kaitsta. Näiteks peaksite oma PST-faile regulaarselt varundama, kuna varukoopiad võimaldavad teil neid taastada korrumpeerunud PST andmeid. Samuti hoida võimas remonditööriist, nagu DataNumen Outlook Repair, on ka vajalikkuse küsimus.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.