Alcuni utenti vorrebbero che Outlook passasse automaticamente dallo stato online a quello offline in base all'orario di lavoro. Quindi, in questo articolo, condivideremo con te un metodo rapido.
In realtà, impostare Outlook online o offline è molto semplice. Per trasformare Outlook in stato offline, puoi semplicemente passare alla scheda "Invia/Ricevi" e premere il pulsante "Lavora offline". E per tornare allo stato online, premi di nuovo questo pulsante. Tuttavia, alcuni utenti sperano che Outlook possa passare automaticamente allo stato offline quando è fuori dall'orario di lavoro e tornare online durante l'orario lavorativo. Sebbene Outlook non fornisca tale funzionalità, è comunque possibile utilizzare il seguente codice VBA per ottenerlo.
Imposta automaticamente Outlook online o offline in base all'orario di lavoro
- Innanzitutto, avvia l'applicazione Outlook.
- Quindi, dopo aver ottenuto l'accesso a Outlook, dovresti aprire la cartella Attività.
- Successivamente dovresti creare un elemento attività ricorrente giornaliero.
- Fare clic sul pulsante "Nuova attività" nella barra multifunzione.
- Quindi inserisci "Offline" nella riga dell'oggetto dell'attività.
- Quindi fai clic sul pulsante "Ricorrenza" nella scheda "Attività".
- Nella finestra di dialogo popup, seleziona il modello di ricorrenza "Giornaliero", abilita "Nessuna data di fine" e premi "OK".
- Successivamente dovresti abilitare un promemoria alle "5:00".
- Infine, premi il pulsante "Salva e chiudi".
- Successivamente, è necessario creare un'altra attività ricorrente giornaliera denominata "Online" e abilitare un promemoria alle "8:00 AM", mostrato nell'immagine seguente:
- Successivamente, nella finestra principale di Outlook, premi i pulsanti "Alt + F11".
- Successivamente avrai accesso all'editor VBA di Outlook, in cui devi trovare e aprire il progetto "ThisOutlookSession".
- Successivamente copia il seguente codice VBA in questo progetto.
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
- Infine, è possibile riavviare Outlook per attivare questa macro.
- D'ora in poi, il tuo Outlook sarà online durante l'orario di lavoro e passerà automaticamente allo stato offline al di fuori dell'orario di lavoro.
La tua ultima risorsa in caso di arresti anomali di Outlook
Sebbene Outlook vanti molteplici funzionalità, Outlook non riesce ancora a tenersi lontano da errori e danni. Ma niente panico. Finché prendi precauzioni sufficienti, puoi comunque proteggere efficacemente i tuoi dati di Outlook. Ad esempio, dovresti eseguire regolarmente il backup dei tuoi file PST poiché i backup ti consentiranno di tornare indietro PST corrotto dati. Inoltre, mantenendo un potente strumento di riparazione, come DataNumen Outlook Repair, è anche una questione di necessità.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com