Ir para o conteúdo principal

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

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


Altere 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 padrão Mostrar como status de Ocupado. Faça o seguinte.

1. Mude para a visualização Calendário. Clique INÍCIO > Novo compromisso.

2. Na nova janela Compromisso, clique em Desenvolvedor > Criar este formulário.

Dicas: Se o Developer guia não aparece na faixa de opções, siga os métodos neste artigo para exibi-lo.

3. Em seguida, a janela de compromisso muda para o modo de design. Você precisa clicar no (Pág.2) aba.

4. Arraste o Evento de dia inteiro campo e o Mostrar hora como campo do Seletor de Campo painel separadamente para a placa sob o (Pág.2) aba

5. Clique com o botão direito do mouse no arrastado Evento de dia inteiro campo e selecione Propriedades no menu de contexto.

6. No Propriedades caixa de diálogo, você precisa configurar da seguinte maneira.

6.1) Vá para o Valor aba;
6.2) No Valor inicial seção, verifique o Defina o valor inicial deste campo para caixa;
6.3) Insira um valor "Verdade" na caixa de texto;
6.4) Clique no OK botão. Veja a imagem:

7. Clique com o botão direito do mouse na caixa de combinação do Mostrar hora como campo e clique Propriedades no menu de contexto.

8. No Propriedades caixa de diálogo, você precisa configurar da seguinte maneira.

8.1) Vá para o Valor aba;
8.2) No Valor inicial seção, verifique o Defina o valor inicial deste campo para caixa;
8.3) Digite um número “2” na caixa de texto;
8.4) Clique no OK botão. Veja a imagem:

9. Clique Publique > Publicar formulário como na fita.

10. No Publicar formulário como caixa de diálogo, você precisa:

10.1) Selecione uma pasta de destino para o formulário personalizado no Olhar dentro lista suspensa. Aqui eu escolho o Biblioteca de formulários pessoais item;
10.2) Dê um nome ao formulário personalizado no Como seu nome será exibido caixa de texto;
10.3) Clique no Publique botão. Veja a imagem:

11. Feche a janela Compromisso sem salvar.

12. A partir de agora, quando você precisar criar um evento de dia inteiro com o Show como status padrão para Ocupado, mude para o Calendário veja e clique INÍCIO > Novidades > Formulários personalizados > “O nome do formulário personalizado”.

Observação: Para criar um evento de dia inteiro com o Show como status padrão para “Free”, faça como de costume: clique INÍCIO > Novo compromisso, e depois verifique o Evento de dia inteiro caixa no de agendamento janela.


Altere o padrão de evento de dia inteiro para ocupado usando o 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 para “Ocupado”, o código VBA a seguir pode ajudá-lo a fazer isso facilmente.

1. Inicie o Outlook, pressione o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes em Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o Esta sessão do Outlook (Código) window e, em seguida, copie o código a seguir para esta janela de código.

Código VBA: defina o padrão de status do evento de dia inteiro para "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. 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 Mostrar como status será exibido como "Ocupado" por padrão.


Artigos relacionados

Alterar a hora padrão do lembrete de eventos de dia inteiro no Outlook
Normalmente, a hora do lembrete padrão de evento de dia inteiro é 18 horas no Outlook 2007/2010 e 0.5 dia no Outlook 2013. Às vezes, a hora de lembrete padrão de evento de dia inteiro pode não corresponder ao seu horário de trabalho. Aqui, apresentaremos a maneira de alterar a hora do lembrete padrão de eventos de dia inteiro no Microsoft Outlook.

Alterar o tempo de acompanhamento padrão no Outlook
Como sabemos, quando adicionamos um lembrete de acompanhamento para um e-mail no Outlook, o horário padrão de acompanhamento é às 4h30 (ou outro horário, dependendo do seu horário de trabalho). No entanto, você pode alterar o horário padrão de acompanhamento e deixá-lo lembrá-lo no início do horário de trabalho, como às 9h. Neste artigo, mostrarei como alterar o tempo de acompanhamento padrão no Outlook.

Alterar local de arquivo padrão no Outlook
Por padrão, o Outlook tem um local padrão para os arquivos compactados. Além do local padrão, você pode definir seu próprio local de arquivamento para seus arquivos compactados. Neste tutorial, mostraremos como alterar o local de arquivamento padrão no Outlook em detalhes.

Alterar o local de salvamento do anexo padrão no Outlook
Você já se cansou de encontrar o local do anexo especificado sempre que inicia o Outlook? Neste tutorial, mostraremos como alterar o local padrão do anexo. Depois disso, a pasta especificada para salvar anexos será aberta automaticamente sempre que você salvar os anexos, embora reinicie o Outlook.

Alterar o tempo padrão para entrega de atraso no Outlook
Este tutorial fornece um código VBA para ajudá-lo a alterar o tempo padrão para a opção de entrega de atraso no Outlook.


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations