Como definir a data de início predefinida como hoje ao criar uma tarefa no Outlook?

Quando cria uma tarefa no Outlook, o campo “Data de Início” aparece por predefinição como “Nenhuma”, tal como se vê na seguinte captura de ecrã. No entanto, se frequentemente precisar de definir hoje como data de início, terá de selecionar manualmente a data no campo “Data de Início” sempre que criar uma nova tarefa. Será que existe uma forma rápida de definir automaticamente hoje como data de início predefinida ao criar uma tarefa no Outlook?

Defina a Data de Início predefinida como hoje ao criar uma Tarefa com código VBA no Outlook

---

Defina a Data de Início predefinida como hoje ao criar uma Tarefa com código VBA no Outlook

Pode não haver outra forma eficaz de resolver esta tarefa diretamente no Outlook; por isso, apresento-lhe um código VBA para o efeito. Siga os passos seguintes:

1. Inicie o Outlook e, em seguida, prima e mantenha premidas 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 módulo e, em seguida, copie e cole o código seguinte no módulo vazio.

Código VBA: Definir Data de Início predefinida 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 secção do código e prima a tecla F5 para executar este código, conforme ilustrado na seguinte captura de ecrã:

4. A partir desse momento, sempre que criar uma tarefa, o Outlook definirá automaticamente a data de início e a data de término como a data atual por predefinição, tal como mostrado na seguinte captura de ecrã: