Como definir automaticamente o Outlook online ou offline com base no seu horário de trabalho

Alguns usuários gostariam de fazer com que o Outlook alternasse automaticamente entre os status online e offline com base em seu horário de trabalho. Portanto, neste artigo, compartilharemos um método rápido com você.

Na verdade, configurar o Outlook online ou offline é muito fácil. Para transformar o Outlook em status offline, basta alternar para a guia “Enviar/Receber” e pressionar o botão “Trabalhar offline”. E para voltar ao status online, basta apertar este botão novamente. No entanto, alguns usuários esperam que o Outlook possa alternar automaticamente para o status offline quando estiver fora do horário de trabalho e retornar ao modo online durante o horário de trabalho. Embora o Outlook não forneça esse recurso, você ainda pode utilizar o seguinte código VBA para alcançá-lo.

Defina automaticamente o Outlook online ou offline com base no seu horário de trabalho

1. Para começar, abra o aplicativo Outlook.
2. Então, depois de obter acesso ao seu Outlook, você deve abrir a pasta Tarefas.
3. Em seguida, você deve criar um item de tarefa recorrente diária.

• Clique no botão "Nova tarefa" na faixa de opções.
• Em seguida, insira “Offline” na linha de assunto da tarefa.
• Em seguida, clique no botão “Recorrência” na guia “Tarefa”.
• Na caixa de diálogo pop-up, selecione o padrão de recorrência “Diário”, ative “Sem data de término” e clique em “OK”.
• Em seguida, você deve habilitar um Lembrete às “5:00”.
• Por fim, clique no botão "Salvar e fechar".

4. Posteriormente, você precisa criar outra Tarefa recorrente diária chamada “Online” e habilitar um lembrete às “8:00 AM”, conforme a imagem abaixo:
5. Depois disso, na janela principal do Outlook, pressione as teclas “Alt + F11”.
6. Em seguida, você terá acesso ao editor VBA do Outlook, no qual precisará encontrar e abrir o projeto “ThisOutlookSession”.
7. Posteriormente, copie o seguinte código VBA para este projeto.

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. Por fim, você pode reiniciar o Outlook para ativar essa macro.
9. A partir de agora, seu Outlook estará online durante o horário de trabalho e mudará automaticamente para o status offline fora do horário de trabalho.

Seu último recurso no caso de falhas do Outlook

Embora o Outlook possua vários recursos, o Outlook ainda não consegue evitar erros e danos. Mas não entre em pânico. Contanto que você tome precauções suficientes, você ainda pode proteger seus dados do Outlook de forma eficaz. Por exemplo, você deve fazer backup de seus arquivos PST regularmente, pois os backups permitirão que você volte PST corrompido dados. Além disso, manter uma poderosa ferramenta de reparo, como DataNumen Outlook Repair, também é uma questão de necessidade.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com