Jak automaticky nastavit připomenutí a datum dokončení při označování e-mailu aplikace Outlook pro následnou kontrolu

Outlook umožňuje uživatelům označit e-maily s vlastní připomínkou a datem splatnosti. Musíte jej však vybrat a povolit ručně. Tento článek vás naučí, jak toho dosáhnout automaticky přes VBA.

Outlook nám poskytuje funkci „Příznak“, která nám umožňuje mnohem pohodlněji sledovat důležité e-maily. Nejen, že nám umožňuje vytvořit e-mail, ale také nám umožňuje vybrat preferovanou ikonu vlajky, přiřadit konkrétní datum splatnosti a dokonce zadat vlastní připomenutí e-mailu. Bez jakýchkoli pochybností je to velmi praktické.

Mnoho uživatelů má ale ještě jinou touhu. Doufají, že Outlook dokáže automaticky určit relativně pevné vlastní datum splatnosti a čas připomenutí pro označené e-maily, například 3 dny po dnešku, 1 týden po dnešku atd. Abych byl upřímný, Outlook žádnou takovou nativní funkci nemá. Proto se musíte vrátit k jiným prostředkům, například k VBA. Zde vás naučíme, jak používat Outlook VBA ke splnění tohoto požadavku. Čtěte dále, abyste to získali podrobně.

Automatické nastavení připomenutí a termínu při označování e-mailu aplikace Outlook

1. Hned na začátku spusťte program Outlook.
2. Poté můžete stisknutím klávesových zkratek „Alt + F11“ získat přístup k editoru VBA.
3. Dále v následujícím okně „Microsoft Visual Basic for Applications“ musíte poklepat na projekt „ThisOutlookSession“ na levé straně.
4. Následně do něj zkopírujte a vložte níže uvedené kódy VBA.

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. Poté byste měli podepsat tento kód jako obvykle.
6. Později ukončete editor VBA a pokračujte ve změně nastavení maker aplikace Outlook tak, aby byla povolena pouze digitálně podepsaná makra.
7. Nakonec je nutné restartovat Outlook, aby se nové makro aktivovalo. Poté to můžete zkusit.

• Klikněte na ikonu vlajky na konci položky e-mailu.
• Vlajka se okamžitě automaticky změní na ikonu „Vlajka příštího týdne“.
• A jeho datum splatnosti a čas připomenutí budou nastaveny podle vašeho přednastavení v kódech.

Nepropadejte panice, pokud se setkáte s havárií aplikace Outlook

Když Outlook nečekaně zhroutí, většina lidí se bojí, že se jejich data v Outlooku poškodí. Pokud jste ale učinili dostatečná opatření, nikdy panikařit nebudete. Nejdůležitějším opatřením je pravidelné zálohování souborů PST. Kromě toho se můžete také vrátit k přednímu nástroji, abyste obnovili svá data. poškozený Outlook data, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com