Kako automatski postaviti podsjetnik i rok kada označavate Outlook e-poštu za praćenje

Outlook omogućuje korisnicima označavanje e-pošte s prilagođenim podsjetnikom za praćenje i datumom dospijeća. Ali morate ga odabrati i omogućiti ručno. Ovaj članak će vas naučiti kako to postići automatski putem VBA.

Outlook nam pruža značajku "Flag", koja nam može omogućiti mnogo praktičnije praćenje kritičnih poruka e-pošte. Ne samo da nam može dopustiti da napravimo e-poruku, već nam također omogućuje da odaberemo željenu ikonu zastavice, dodijelimo određeni rok i čak odredimo prilagođeni podsjetnik za e-poštu. Bez ikakve sumnje, vrlo je zgodan.

Ali mnogi korisnici još uvijek imaju drugu želju. Nadaju se da Outlook može automatski odrediti relativno fiksni prilagođeni datum dospijeća i vrijeme podsjetnika za označene e-poruke, kao što je 3 dana nakon danas, 1 tjedan nakon danas, itd. Da budem iskren, Outlook nema takvu izvornu značajku. Stoga se trebate vratiti na druga sredstva, na primjer, VBA. Ovdje ćemo vas naučiti kako koristiti Outlook VBA za realizaciju ovog zahtjeva. Čitajte dalje da biste saznali detalje.

Automatski postavite podsjetnik i rok kada označavate Outlook e-poštu

1. Na samom početku pokrenite svoj Outlook program.
2. Zatim možete pritisnuti prečace tipki “Alt + F11” da biste pristupili VBA uređivaču.
3. Zatim u sljedećem prozoru “Microsoft Visual Basic for Applications” trebate dvaput kliknuti na projekt “ThisOutlookSession” na lijevoj strani.
4. Nakon toga, kopirajte i zalijepite VBA kodove ispod u njega.

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. Nakon toga trebali biste potpisati ovaj kod kao i obično.
6. Kasnije izađite iz uređivača VBA i nastavite s promjenom postavki Outlook makronaredbi kako biste omogućili samo digitalno potpisane makronaredbe.
7. Na kraju morate ponovno pokrenuti Outlook kako biste aktivirali novi makro. Nakon toga možete pokušati.

• Kliknite ikonu zastavice na kraju stavke e-pošte.
• Zastavica će se odmah automatski promijeniti u ikonu "Zastavica sljedećeg tjedna".
• Njegov datum dospijeća i vrijeme podsjetnika bit će postavljeni u skladu s vašim predpostavkama u kodovima.

Nemojte paničariti ako se Outlook sruši

Kada se Outlook neočekivano sruši, većina ljudi će paničariti jer se boje da će im se Outlook podaci oštetiti. Ali zapravo, ako ste poduzeli dovoljne mjere opreza, nikada nećete paničariti. Najvažnija mjera je redovito izrada sigurnosnih kopija PST datoteka. Štoviše, možete se vratiti i vrhunskom alatu kako biste vratili svoje oštećen Outlook podatke, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com