Como definir a data de início padrão como hoje ao criar uma nova tarefa no Outlook?
Quando criamos uma nova tarefa no Outlook, a tarefa com “Data de Início” é exibida como “Nenhum” por padrão, conforme mostrado na captura de tela a seguir. No entanto, às vezes, você precisa definir hoje como sua Data de início frequentemente, então, você tem que selecionar a data no campo “Data de início” manualmente cada vez. Existe alguma maneira rápida de definir a data de início padrão como hoje automaticamente ao criar uma nova tarefa no Outlook?
Definir a data de início padrão como hoje ao criar uma nova tarefa com código VBA no Outlook
Definir a data de início padrão como hoje ao criar uma nova tarefa com código VBA no Outlook
Pode ser que não haja outra boa maneira de lidar com essa tarefa diretamente no Outlook, aqui vou introduzir um código VBA para resolvê-la. Por favor, siga os passos a seguir:
1. Inicie o Outlook e, em seguida, mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Definir a data de início padrão como hoje:
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
xTaskItem.StartDate = Now
End If
End Sub
3. Após inserir o código, coloque o cursor na segunda seção do código e pressione a tecla F5 para executar este código, veja a captura de tela:
4. A partir de então, sempre que você criar uma nova tarefa, o Outlook definirá automaticamente a data de início e a data de término para a data atual por padrão, conforme mostrado na captura de tela a seguir:
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
