Como definir o horário de início e término padrão para eventos de dia inteiro com base no seu horário de trabalho no Outlook.

Por padrão, não é possível alterar o horário de início e término de eventos de dia inteiro no Outlook. Este artigo mostrará como definir o horário padrão de início e término desses eventos de acordo com seu horário de trabalho.

Como você pode ver, ao ativar a opção "Evento de dia inteiro" em um compromisso, os campos "Hora de início" e "Hora de término" ficarão desabilitados. Nesse caso, significa que você não poderá alterá-los conforme desejar. Portanto, a seguir, compartilharemos um método para definir a hora de início e término padrão de eventos de dia inteiro com base no seu horário de trabalho no Outlook.

Defina o horário padrão de início e término de eventos que duram o dia todo de acordo com o horário comercial.

1. Para começar, abra o programa Outlook.
2. Depois de entrar na tela principal do Outlook, você pode pressionar os botões de tecla “Alt + F11”.
3. Posteriormente, você terá acesso à janela do editor VBA do Outlook.
4. Na janela atual “Microsoft Visual Basic for Applications”, você precisa abrir a janela do projeto “ThisOutlookSession”.
5. Em seguida, copie o seguinte código VBA para este projeto.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Depois disso, você precisa assinar este código. Clique em “Ferramentas” > “Assinatura”.
7. Na caixa de diálogo subsequente, siga as instruções na tela para atribuir um certificado digital ao novo projeto VBA.
8. Posteriormente, você deve alterar as configurações de macro do Outlook para permitir macros assinadas digitalmente.
9. Por fim, você pode reiniciar o aplicativo Outlook para ativar essa macro.
10. A partir de agora, sempre que você ativar a opção “Evento de dia inteiro” em um compromisso do Outlook, o horário de início e término do compromisso será alterado para o seu horário de trabalho, como na captura de tela a seguir:

Recupere Dados Preciosos de Arquivo Comprometido do Outlook

Embora o Outlook possua vários recursos, isso não significa que seja totalmente perfeito. Ele ainda pode ser corrompido devido a vários fatores, como vírus de e-mail, manuseio impróprio humano e assim por diante. Portanto, além de fazer backups regulares de dados PST, é melhor preparar uma poderosa ferramenta externa de correção de PST por perto, como DataNumen Outlook Repair. Pode reparar PST questões em um curto espaço de tempo.

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 conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com