Kako samodejno nastaviti Outlook na spletu ali brez povezave glede na vaš delovni čas

Nekateri uporabniki bi želeli omogočiti, da Outlook samodejno preklaplja med povezanim in brez povezave glede na njihov delovni čas. Zato bomo v tem članku z vami delili hitro metodo.

Pravzaprav je nastavitev Outlooka v spletu ali brez njega zelo enostavna. Če želite Outlook spremeniti v stanje brez povezave, lahko preprosto preklopite na zavihek »Pošlji/prejmi« in pritisnete gumb »Delo brez povezave«. Če se želite vrniti v stanje na spletu, preprosto znova pritisnite ta gumb. Vendar pa nekateri uporabniki upajo, da lahko Outlook samodejno preklopi v stanje brez povezave, ko je zunaj delovnega časa, in se vrne v splet v delovnem času. Čeprav Outlook ne ponuja takšne funkcije, lahko še vedno uporabite naslednjo kodo VBA, da to dosežete.

Samodejna nastavitev Outlooka na spletu ali brez povezave glede na vaš delovni čas

1. Na samem začetku zaženite aplikacijo Outlook.
2. Potem, ko pridobite dostop do Outlooka, odprite mapo Opravila.
3. Nato bi morali ustvariti dnevno ponavljajočo se postavko opravila.

• Na traku kliknite gumb »Nova naloga«.
• Nato v vrstico Zadeva opravila vnesite »Brez povezave«.
• Nato kliknite gumb »Ponovitev« pod zavihkom »Opravilo«.
• V pojavnem pogovornem oknu izberite vzorec ponavljanja »Dnevno«, omogočite »Brez končnega datuma« in pritisnite »V redu«.
• Nato bi morali omogočiti opomnik ob »5:00 PM«.
• Na koncu pritisnite gumb »Shrani in zapri«.

4. Nato morate ustvariti še eno vsakodnevno ponavljajočo se nalogo z imenom »Na spletu« in omogočiti opomnik ob »8:00 zjutraj«, prikazan kot spodnja slika:
5. Po tem v glavnem oknu Outlooka pritisnite tipke »Alt + F11«.
6. Nato boste dobili dostop do urejevalnika Outlook VBA, v katerem morate najti in odpreti projekt »ThisOutlookSession«.
7. Pozneje kopirajte naslednjo kodo VBA v ta 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

8. Sčasoma lahko znova zaženete Outlook, da aktivirate ta makro.
9. Od zdaj naprej bo vaš Outlook v delovnem času na spletu in zunaj delovnega časa samodejno preklopil v stanje brez povezave.

Vaša zadnja možnost v primeru zrušitve Outlooka

Čeprav se Outlook ponaša z več funkcijami, se Outlook še vedno ne more izogniti napakam in poškodbam. Vendar brez panike. Dokler upoštevate ustrezne previdnostne ukrepe, lahko še vedno učinkovito zaščitite svoje Outlookove podatke. Na primer, redno varnostno kopirajte datoteke PST, saj vam bodo varnostne kopije omogočile vrnitev pokvarjen PST podatke. Prav tako ohranjanje zmogljivega orodja za popravilo, npr DataNumen Outlook Repair, je tudi stvar nuje.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com