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 Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
