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 di inizio” viene visualizzata con “Nessuna” come impostazione predefinita, come mostrato nello screenshot seguente. Tuttavia, a volte è necessario impostare frequentemente la data odierna come Data di inizio, quindi ogni volta bisogna selezionare manualmente la data nel campo “Data di inizio”. Esiste un modo rapido per impostare automaticamente la data di inizio predefinita come oggi quando si crea una nuova attività in Outlook?
Impostare la data di inizio predefinita come oggi quando si crea una nuova attività con il codice VBA in Outlook
Forse non esiste un altro buon metodo per gestire direttamente questa attività in Outlook; qui vi presenterò un codice VBA per risolvere il problema. Seguite i seguenti passaggi:
1. Avviate Outlook e poi tenete premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fate doppio clic su ThisOutlookSession nel riquadro Project1(VbaProject.OTM) per aprire la modalità, quindi copiate e incollate il seguente codice 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, posizionate il cursore nella seconda sezione del codice e premete il tasto F5 per eseguire il codice, vedere lo screenshot:
4. Da quel momento in poi, ogni volta che creerete una nuova attività, Outlook imposterà automaticamente la data di inizio e la data di fine alla data corrente per impostazione predefinita, come mostrato nello screenshot seguente:
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
