Come impostare la data predefinita «Data di inizio» su oggi quando si crea un'attività in Outlook?

Quando crei un’attività in Outlook, il campo “Data di inizio” viene visualizzato con “Nessuna” come valore predefinito, come mostrato nello screenshot seguente. Tuttavia, capita spesso di dover impostare la data odierna come Data di inizio, costringendoti a selezionarla manualmente ogni volta nel campo corrispondente. Esiste un modo rapido per impostare automaticamente la data odierna come Data di inizio predefinita quando crei un’attività in Outlook?

Imposta la data predefinita Data di inizio su oggi quando crei un Attività con codice VBA in Outlook

---

Imposta la data predefinita Data di inizio su oggi quando crei un Attività con codice VBA in Outlook

Potrebbe non esistere un altro modo efficace per gestire questa attività direttamente in Outlook; per risolvere il problema, ti presenterò un codice VBA. Segui questi passaggi:

1. Avvia Outlook, quindi premi contemporaneamente i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: imposta la data predefinita Data di inizio su oggi:

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. Dopo aver inserito il codice, posiziona il cursore nella seconda sezione del codice e premi il tasto F5 per eseguirlo; vedi lo screenshot:

4. Da quel momento, ogni volta che crei un’attività, Outlook imposterà automaticamente la data di inizio e la data di fine sulla data corrente come impostazione predefinita, come mostrato nello screenshot seguente: