Az Outlook online vagy offline automatikus beállítása a munkaidő alapján

Egyes felhasználók azt szeretnék elérni, hogy az Outlook automatikusan váltson az online és offline állapot között a munkaidejük alapján. Tehát ebben a cikkben egy gyors módszert osztunk meg veled.

Valójában az Outlook online vagy offline beállítása nagyon egyszerű. Az Outlook offline állapotba állításához egyszerűen váltson a „Küldés/Fogadás” fülre, és nyomja meg az „Offline munkavégzés” gombot. Az online állapothoz való visszatéréshez egyszerűen nyomja meg újra ezt a gombot. Egyes felhasználók azonban abban reménykednek, hogy az Outlook automatikusan offline állapotba tud kapcsolni, amikor lejár a munkaidő, és visszatérhet az online állapotba a munkaidőben. Bár az Outlook nem biztosít ilyen funkciót, a következő VBA-kódot használhatja ennek eléréséhez.

Az Outlook automatikus beállítása online vagy offline üzemmódban a munkaidő alapján

1. Legelőször indítsa el az Outlook alkalmazást.
2. Ezután, miután hozzáfért az Outlookhoz, nyissa meg a Feladatok mappát.
3. Ezután hozzon létre egy napi ismétlődő feladatelemet.

• Kattintson az „Új feladat” gombra a szalagon.
• Ezután írja be az „Offline” kifejezést a Feladat tárgysorába.
• Ezután kattintson az „Ismétlődés” gombra a „Feladat” fül alatt.
• A felugró párbeszédpanelen válassza ki a „Napi” ismétlődési mintát, engedélyezze a „Nincs befejezési dátum” lehetőséget, és nyomja meg az „OK” gombot.
• Ezután engedélyeznie kell az emlékeztetőt „5:00 órakor”.
• Végül nyomja meg a „Mentés és bezárás” gombot.

4. Ezt követően létre kell hoznia egy másik napi ismétlődő feladatot „Online” néven, és engedélyeznie kell az emlékeztetőt „8:00 órakor”, az alábbi képen látható módon:
5. Ezután az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
6. Ezután hozzáférést kap az Outlook VBA szerkesztőhöz, amelyben meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
7. Később másolja be a következő VBA-kódot ebbe a projektbe.

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. Végül újraindíthatja az Outlookot a makró aktiválásához.
9. Mostantól az Outlook munkaidőben online lesz, és munkaidőn kívül automatikusan offline állapotba kapcsol.

Az utolsó megoldás az Outlook összeomlása esetén

Bár az Outlook számos funkcióval büszkélkedhet, az Outlook továbbra sem tudja elkerülni a hibákat és a sérüléseket. De ne ess pánikba. Mindaddig, amíg megfelelő óvintézkedéseket tesz, továbbra is hatékonyan védheti Outlook adatait. Például rendszeresen készítsen biztonsági másolatot a PST-fájlokról, mivel a biztonsági mentések lehetővé teszik a visszaállítást korrupt PST adat. Ezenkívül egy erős javítóeszköz tartása, mint pl DataNumen Outlook Repair, szintén szükségszerűség kérdése.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com