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
- Para% start com, inicie seu programa Outlook.
- Depois de entrar na tela principal do Outlook, você pode pressionar os botões de tecla “Alt + F11”.
- Posteriormente, você terá acesso à janela do editor VBA do Outlook.
- Na janela atual “Microsoft Visual Basic for Applications”, você precisa abrir a janela do projeto “ThisOutlookSession”.
- 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") 'Alterar o Start e hora final de acordo com o horário de trabalho com 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") Com objAppointment .AllDayEvent = False .Start = dOccuringDate & " 9:00:00 AM" .End = dOccuringDate & " 6:00:00 PM" End With End If End Sub
- Depois disso, você precisa assinar este código. Clique em “Ferramentas” > “Assinatura”.
- Na caixa de diálogo subsequente, siga as instruções na tela para atribuir um certificado digital ao novo projeto VBA.
- Posteriormente, você deve alterar as configurações de macro do Outlook para permitir macros assinadas digitalmente.
- Eventualmente, você pode restart seu aplicativo Outlook para ativar esta macro.
- 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