Kā automātiski iestatīt atgādinājumu un izpildes datumu, atzīmējot Outlook e-pastu pēcpārbaudei

Outlook ļauj lietotājiem atzīmēt e-pastus ar pielāgotu papildu atgādinājumu un izpildes datumu. Bet jums tas ir jāatlasa un jāiespējo manuāli. Šis raksts iemācīs, kā to automātiski sasniegt, izmantojot VBA.

Outlook nodrošina mums funkciju “Karogs”, kas ļauj mums daudz ērtāk sekot līdzi kritiskajiem e-pastiem. Tas ne tikai ļauj mums izveidot e-pastu, bet arī ļauj mums izvēlēties vēlamo karodziņa ikonu, piešķirt noteiktu termiņu un pat norādīt pielāgotu atgādinājumu e-pastam. Bez šaubām, tas ir ļoti ērti.

Bet daudziem lietotājiem joprojām ir vēlēšanās. Viņi cer, ka programma Outlook var automātiski norādīt salīdzinoši fiksētu pielāgoto izpildes datumu un atgādinājuma laiku atzīmētajiem e-pasta ziņojumiem, piemēram, 3 dienas pēc šodienas, 1 nedēļu pēc šodienas utt. Ja godīgi, programmai Outlook nav šādas vietējās funkcijas. Tādējādi jums ir jāatgriežas pie citiem līdzekļiem, piemēram, VBA. Šeit mēs iemācīsim jums izmantot Outlook VBA, lai realizētu šo prasību. Lasiet tālāk, lai to iegūtu detalizēti.

Automātiski iestatiet atgādinājumu un izpildes datumu, atzīmējot Outlook e-pastu

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam jūs varat nospiest taustiņu saīsnes “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam nākamajā logā “Microsoft Visual Basic for Applications” jums kreisajā pusē ir jāveic dubultklikšķis uz projekta “ThisOutlookSession”.
4. Pēc tam nokopējiet un ielīmējiet zemāk esošos VBA kodus.

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. Pēc tam jums jāparaksta šis kods kā parasti.
6. Vēlāk izejiet no VBA redaktora un turpiniet mainīt Outlook makro iestatījumus, lai iespējotu tikai digitāli parakstītās makro.
7. Visbeidzot, lai aktivizētu jauno makro, ir jārestartē programma Outlook. Pēc tam varat to izmēģināt.

• Noklikšķiniet uz karodziņa ikonas e-pasta vienuma astē.
• Uzreiz karodziņš tiks automātiski nomainīts uz ikonu “Nākamās nedēļas karodziņš”.
• Tā izpildes datums un atgādinājuma laiks tiks iestatīts atbilstoši jūsu iepriekšējam iestatījumam kodos.

Nekrītiet panikā, ja rodas avārija programmā Outlook

Kad programma Outlook negaidīti avarē, vairums cilvēku baidās no panikas, jo baidās, ka viņu Outlook dati tiks bojāti. Taču patiesībā, ja esat veicis pietiekamus piesardzības pasākumus, jūs nekad nekritīsiet panikā. Vissvarīgākais pasākums ir regulāri dublēt PST failus. Turklāt varat izmantot arī vērtīgu rīku, lai atgūtu savus datus. bojāta Outlook dati, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar