Note: The other languages of the website are Google-translated. Back to English
English English

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”É exibido com "Nenhum”Por padrão, conforme a imagem a seguir mostrada. Mas, às vezes, você precisa definir hoje como sua data de início com frequência, então, você deve selecionar a data no campo “Data de início” manualmente a 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?

Defina a data de início padrão como hoje ao criar uma nova tarefa com o código VBA no Outlook


Defina a data de início padrão como hoje ao criar uma nova tarefa com o código VBA no Outlook

Pode ser que não haja outra boa maneira de lidar com essa tarefa diretamente no Outlook, aqui, vou apresentar um código VBA para resolvê-lo. Siga os seguintes passos:

1. Inicie o Outlook e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: defina 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 F5 chave para executar este código, veja a captura de tela:

4. Desde então, quando você cria uma nova tarefa a cada vez, o Outlook define automaticamente a data de início e a data de término para a data atual por padrão, conforme mostrado a seguir:


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL