Como definir o S padrãotart e horário de término de eventos de dia inteiro com base em seu horário de trabalho no Outlook

Por padrão, você não tem permissão para alterar os starT e hora de término de eventos de dia inteiro conforme seus desejos em seu Outlook. Agora, este artigo mostrará como definir os s padrãotart e hora de término de eventos durante todo o dia de acordo com seu horário de trabalho.

Como você pode ver, quando você habilita a opção “All day event” em um compromisso, tanto o “StarOs campos Hora" e "Hora final" ficarão esmaecidos. Nesse cenário, isso significa que você não tem permissão para alterá-los ao seu gosto. Portanto, a seguir, compartilharemos um método para definir os s padrãotart e hora de término de todos os eventos do dia com base em suas horas de trabalho em seu Outlook.

Definir o padrão Start e hora de término de eventos de dia inteiro de acordo com o horário de trabalho

1. Para% start com, inicie seu 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. Eventualmente, você pode restart seu aplicativo Outlook para ativar esta macro.
10. A partir de agora, toda vez que você habilitar a opção “Evento de dia inteiro” em um compromisso do Outlook, o s do compromissotart e o horário final serão alterados 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