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

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:


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite