Come impostare la data di inizio predefinita come oggi quando si crea una nuova attività in Outlook?

Quando creiamo una nuova attività in Outlook, l'attività con "Data d'inizio"Viene visualizzato con "Nessuna"Per impostazione predefinita, come mostrato nella seguente schermata. Tuttavia, a volte, è necessario impostare frequentemente oggi come data di inizio, quindi è necessario selezionare manualmente la data nel campo "Data di inizio" ogni volta. Esiste un modo rapido per impostare automaticamente la data di inizio predefinita come oggi quando si crea una nuova attività in Outlook?

Imposta la data di inizio predefinita come oggi quando crei una nuova attività con codice VBA in Outlook

Imposta la data di inizio predefinita come oggi quando crei una nuova attività con codice VBA in Outlook

Potrebbe non esserci un altro buon modo per gestire questa attività direttamente in Outlook, qui introdurrò un codice VBA per risolverlo. Si prega di fare con i seguenti passaggi:

1. Avvia Outlook, quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: imposta la data di inizio predefinita come 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, posizionare il cursore nella seconda sezione del codice e premere F5 chiave per eseguire questo codice, vedi screenshot:

4. Da allora, quando crei una nuova attività ogni volta, Outlook imposterà automaticamente la data di inizio e la data di fine alla data corrente per impostazione predefinita come mostrato nella seguente schermata: