Noen brukere ønsker å få Outlook til å automatisk bytte mellom online og offline status basert på arbeidstiden deres. Så i denne artikkelen vil vi dele en rask metode med deg.
Det er faktisk veldig enkelt å sette Outlook online eller offline. For å gjøre Outlook til offline-status, kan du bare bytte til "Send/Motta"-fanen og trykke på "Jobb frakoblet"-knappen. Og for å gå tilbake til nettstatus, trykk ganske enkelt på denne knappen igjen. Noen brukere håper imidlertid at Outlook automatisk kan bytte til offline-status når det er utenfor arbeidstid og gå tilbake til online i arbeidstiden. Selv om Outlook ikke tilbyr en slik funksjon, kan du fortsatt bruke følgende VBA-kode for å oppnå den.

Automatisk innstilling av Outlook online eller frakoblet basert på arbeidstiden din
- Helt fra starten av, start Outlook-programmet ditt.
- Deretter, etter å ha fått tilgang til Outlook, bør du åpne Oppgaver-mappen.
- Deretter bør du opprette et daglig gjentakende oppgaveelement.
- Klikk på "Ny oppgave"-knappen på båndet.
- Skriv deretter inn "Offline" i oppgavens emnelinje.
- Klikk deretter på "Recurrence"-knappen under "Oppgave"-fanen.
- I popup-dialogboksen velger du "Daglig" gjentakelsesmønster, aktiver "Ingen sluttdato" og trykk "OK".
- Deretter bør du aktivere en påminnelse klokken "5:00".
- Trykk til slutt på "Lagre og lukk"-knappen.
- Deretter må du opprette en annen daglig gjentakende oppgave kalt "Online" og aktivere en påminnelse klokken "8:00 AM", vist som bildet nedenfor:
- Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
- Deretter får du tilgang til Outlook VBA-editor, der du må finne og åpne "ThisOutlookSession" -prosjektet.
- Kopier deretter følgende VBA-kode inn i dette prosjektet.
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
- Til slutt kan du starte Outlook på nytt for å aktivere denne makroen.
- Fra nå av vil Outlook være online i arbeidstiden og automatisk bytte til offline-status utenom arbeidstiden.
Din siste utvei i tilfelle Outlook-krasj
Selv om Outlook kan skryte av flere funksjoner, kan Outlook fortsatt ikke holde unna feil og skader. Men ikke få panikk. Så lenge du tar tilstrekkelige forholdsregler, kan du fortsatt beskytte Outlook-dataene dine effektivt. For eksempel bør du sikkerhetskopiere PST-filene dine regelmessig, siden sikkerhetskopier vil gjøre det mulig for deg å komme tilbake korrupt PST data. Også holde et kraftig reparasjonsverktøy, som DataNumen Outlook Repair, er også et spørsmål om nødvendighet.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med



