Come impostare automaticamente un promemoria e una data di scadenza quando si contrassegna un'e-mail di Outlook per il follow-up

Outlook consente agli utenti di contrassegnare le e-mail con un promemoria di follow-up personalizzato e una data di scadenza. Ma devi selezionarlo e abilitarlo manualmente. Questo articolo ti insegnerà come ottenerlo automaticamente tramite VBA.

Outlook ci fornisce la funzione "Flag", che ci consente di seguire le e-mail critiche in modo molto più conveniente. Non solo ci consente di inviare un'e-mail, ma ci consente anche di selezionare un'icona di bandiera preferita, assegnare una data di scadenza specifica e persino specificare un promemoria personalizzato per l'e-mail. Senza dubbio, è molto utile.

Ma molti utenti hanno ancora un altro desiderio. Sperano che Outlook possa specificare automaticamente una data di scadenza personalizzata relativamente fissa e un'ora di promemoria per le e-mail contrassegnate, ad esempio 3 giorni dopo oggi, 1 settimana dopo oggi, ecc. Ad essere onesti, Outlook non ha una tale funzionalità nativa. Quindi, è necessario ricorrere ad altri mezzi, ad esempio VBA. Qui ti insegneremo come utilizzare Outlook VBA per realizzare questo requisito. Continua a leggere per ottenerlo in dettaglio.

Imposta automaticamente un promemoria e una data di scadenza quando si contrassegna un'e-mail di Outlook

1. All'inizio, avvia il tuo programma Outlook.
2. Quindi puoi premere le scorciatoie da tastiera "Alt + F11" per accedere all'editor VBA.
3. Avanti nella seguente finestra "Microsoft Visual Basic for Applications", è necessario fare doppio clic sul progetto "ThisOutlookSession" sul lato sinistro.
4. Successivamente, copia e incolla i codici VBA sottostanti.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
          'You can change the following lines as per your actual needs
          With objMail
               .FlagRequest = "Type the custom follow-up notes here"
               .MarkAsTask olMarkNextWeek
               'Set a custom due date
               .TaskDueDate = Now + 7
               .ReminderSet = True
               'Set a custom reminder time
               .ReminderTime = Now + 6.5
               .Save
         End With
       End If
    End If
End Sub

5. Successivamente, dovresti firmare questo codice normalmente.
6. Successivamente esci dall'editor VBA e procedi a modificare le impostazioni delle macro di Outlook per abilitare solo le macro firmate digitalmente.
7. Infine, è necessario riavviare Outlook per attivare la nuova macro. Dopodiché, potrete provarla.

• Fare clic sull'icona della bandiera alla fine di un elemento di posta elettronica.
• Immediatamente, la bandiera verrà automaticamente cambiata nell'icona "Bandiera della prossima settimana".
• E la sua data di scadenza e l'ora del promemoria saranno impostate in base alla preimpostazione nei codici.

Niente panico se si verifica un arresto anomalo di Outlook

Quando Outlook si blocca inaspettatamente, la maggior parte delle persone entra nel panico temendo che i propri dati di Outlook vengano danneggiati. Ma in realtà, se hai preso le dovute precauzioni, non dovrai mai preoccuparti. La misura più importante è eseguire regolarmente il backup dei file PST. Inoltre, puoi anche ricorrere a uno strumento di prim'ordine per recuperare i tuoi dati. Outlook danneggiato dati, ad es DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com