Como alterar a predefinição dos eventos de dia inteiro para “Ocupado” no Outlook?

Por predefinição, o Outlook define as reuniões como «Ocupado», mas os eventos de dia inteiro como «Livre» (ver imagem abaixo). Sempre que criar um evento de dia inteiro, terá de alterar manualmente o estado «Mostrar como» para «Ocupado». Para mudar esta predefinição e definir automaticamente os eventos de dia inteiro como «Ocupado», este artigo apresenta-lhe dois métodos.

Alterar a predefinição dos eventos de dia inteiro para «Ocupado» criando um formulário personalizado

Um formulário personalizado permite-lhe criar um evento de dia inteiro com o estado predefinido «Mostrar como» definido como «Ocupado». Siga os passos abaixo.

1. Mude para a vista Calendário. Clique em «Base» > «Compromisso».

2. Na janela Compromisso, clique em «Programador» > «Desenhar Este Formulário».

Dica: Se o separador «Programador» não estiver visível no Friso, siga os métodos neste artigo para o tornar visível.

3. A janela de compromisso muda então para o modo de desenho. Clique no separador «(P.2)».

4. Arraste separadamente os campos «Evento de dia inteiro» e «Status Ocupado» do painel «Selector de Campos» para o quadro sob o separador «(P.2)».

5. Clique com o botão direito do rato no campo «Evento de dia inteiro» que arrastou e selecione «Propriedades» no menu de contexto.

6. Na caixa de diálogo «Propriedades», configure as definições conforme indicado a seguir.

7. Clique com o botão direito do rato na caixa de combinação do campo «Status Ocupado» e escolha «Propriedades» no menu de contexto.

8. Na caixa de diálogo «Propriedades», configure as definições conforme indicado a seguir.

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

10. Na caixa de diálogo «Publicar Formulário Como», deverá:

11. Feche a janela de Compromisso sem guardar as alterações.

12. A partir de agora, sempre que precisar de criar um evento de dia inteiro com o estado «Mostrar como» predefinido como «Ocupado», mude para a vista «Calendário» e clique em «Base» > «Novos Itens» > «Formulários Personalizados» > «Nome do formulário personalizado».

Nota: Para criar um evento de dia inteiro com o estado «Mostrar como» predefinido como «Livre», basta seguir o procedimento habitual: clique em «Base» > «Compromisso» e, de seguida, assinale a caixa «Evento de dia inteiro» na janela «Compromisso».

Alterar a predefinição dos eventos de dia inteiro para «Ocupado» utilizando VBA

O método anterior envolve demasiados passos. Se costuma criar frequentemente eventos de dia inteiro com o estado «Mostrar como» predefinido como «Ocupado», o seguinte código VBA permite-lhe fazê-lo facilmente.

1. Inicie o Outlook e prima simultaneamente as teclas «Alt» + «F11» para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Na janela «Microsoft Visual Basic para Aplicações», clique duas vezes em «Projeto1» > «Objetos do Microsoft Outlook» > «ThisOutlookSession» para abrir a janela «ThisOutlookSession (Código)» e cole o código seguinte nessa janela.

Código VBA: Definir o estado predefinido do evento de dia inteiro como «Ocupado»

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. Guarde o código VBA e reinicie o Outlook.

A partir de agora, ao converter um compromisso ou uma reunião num evento de dia inteiro, o estado «Mostrar como» será automaticamente definido como «Ocupado».

Artigos relacionados

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto