Como alterar o padrão de evento de dia inteiro para ocupado no Outlook?

Author: Siluvia Last Modified: 2025-08-06

Por padrão, o Outlook define o status de compromissos e reuniões como "Ocupado", mas eventos de dia inteiro como "Livre" (veja a captura de tela abaixo). Você precisa alterar manualmente o status Mostrar Como para Ocupado cada vez que cria um evento de dia inteiro. Para alterar o status padrão Mostrar Como dos eventos de dia inteiro para Ocupado, este artigo fornece dois métodos.

changing the all-day event default to busy in Outlook

Alterar o padrão de evento de dia inteiro para ocupado criando um formulário personalizado

Alterar o padrão de evento de dia inteiro para ocupado usando VBA

Alterar o padrão de evento de dia inteiro para ocupado criando um formulário personalizado

Um formulário personalizado pode ajudá-lo a criar um evento de dia inteiro com o status padrão "Mostrar Como" definido como "Ocupado". Por favor, siga os passos abaixo.

1. Alterne para a visualização do Calendário. Clique em "Início" > "Novo Compromisso".

2. Na nova janela de Compromisso, clique em "Desenvolvedor" > "Projetar Este Formulário".

Dicas: Se a guia "Desenvolvedor" não aparecer na faixa de opções, por favor, siga os métodos neste artigo para exibi-la.

steps on changing the all-day event default to busy by creating a custom form

3. Em seguida, a janela de compromisso entra no modo de design. Você precisa clicar na aba "(P.2)".

4. Arraste o campo "Evento de Dia Inteiro" e o campo "Mostrar Hora Como" separadamente do painel "Seletor de Campos" para a área sob a aba "(P.2)".

5. Clique com o botão direito no campo "Evento de Dia Inteiro" arrastado e selecione "Propriedades" no menu de contexto.

6. Na caixa de diálogo "Propriedades", você precisa configurar conforme segue.

6.1) Vá para a aba "Valor";

6.2) Na seção "Valor Inicial", marque a caixa "Definir o valor inicial deste campo para";

6.3) Insira o valor "True" na caixa de texto;

6.4) Clique no botão "OK". Veja a captura de tela:

7. Clique com o botão direito na caixa de combinação do campo "Mostrar Hora Como" e clique em "Propriedades" no menu de contexto.

8. Na caixa de diálogo "Propriedades", você precisa configurar conforme segue.

8.1) Vá para a aba "Valor";

8.2) Na seção "Valor Inicial", marque a caixa "Definir o valor inicial deste campo para";

8.3) Insira o número "2" na caixa de texto;

8.4) Clique no botão "OK". Veja a captura de tela:

9. Clique em "Publicar" > "Publicar Formulário Como" na faixa de opções.

10. Na caixa de diálogo "Publicar Formulário Como", você precisa:

10.1) Selecionar uma pasta de destino para o formulário personalizado na lista suspensa "Procurar Em". Aqui eu escolho o item "Biblioteca de Formulários Pessoais";

10.2) Nomeie o formulário personalizado na caixa de texto "Nome de Exibição";

10.3) Clique no botão "Publicar". Veja a captura de tela:

11. Feche a janela de Compromisso sem salvar.

12. A partir de agora, quando precisar criar um evento de dia inteiro com o status Mostrar Como padrão definido como Ocupado, alterne para a visualização "Calendário" e clique em "Início" > "Novos Itens" > "Formulários Personalizados" > "O nome do formulário personalizado".

Nota: Para criar um evento de dia inteiro com o status Mostrar Como padrão definido como “Livre”, basta fazer como de costume: clique em "Início" > "Novo Compromisso" e depois marque a caixa "Evento de Dia Inteiro" na janela "Compromisso".

Alterar o padrão de evento de dia inteiro para ocupado usando VBA

O método acima tem muitas etapas. Se você sempre precisa criar um evento de dia inteiro com o status Mostrar Como padrão definido como "Ocupado", o seguinte código VBA pode ajudá-lo a fazê-lo facilmente.

1. Abra seu Outlook, pressione as teclas "Alt" + "F11" simultaneamente para abrir a janela "Microsoft Visual Basic for Applications".

2. Na janela "Microsoft Visual Basic for Applications", clique duas vezes em "Project1" > "Objetos do Microsoft Outlook" > "ThisOutlookSession" para abrir a janela "ThisOutlookSession (Código)", e depois copie o seguinte código nesta janela de código.

steps on changing the all-day event default to busy by using VBA

Código VBA: Definir o status de evento de dia inteiro como "Ocupado" por padrão

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Salve o código VBA e reinicie o Outlook.

A partir de agora, após converter um compromisso ou uma reunião em um evento de dia inteiro, o status "Mostrar Como" será exibido como "Ocupado" por padrão.