Meeldetuletuse ja tähtpäeva automaatne määramine, kui märgite Outlooki meili jälgimiseks

Outlook võimaldab kasutajatel märgistada e-kirjad kohandatud järelmeeldetuletuse ja tähtpäevaga. Kuid peate selle käsitsi valima ja lubama. See artikkel õpetab teile, kuidas seda VBA kaudu automaatselt saavutada.

Outlook pakub meile lipu funktsiooni, mis võimaldab meil kriitilisi kirju palju mugavamalt jälgida. See mitte ainult ei võimalda meil meili saata, vaid võimaldab meil valida ka eelistatud lipuikooni, määrata kindla tähtpäeva ja isegi määrata meilile kohandatud meeldetuletuse. Kahtlemata on see väga mugav.

Kuid paljudel kasutajatel on veel üks soov. Nad loodavad, et Outlook suudab lipuga märgitud e-kirjadele automaatselt määrata suhteliselt fikseeritud kohandatud tähtpäeva ja meeldetuletusaja, näiteks 3 päeva pärast tänast, 1 nädal pärast tänast jne. Ausalt öeldes pole Outlookil sellist loomulikku funktsiooni. Seetõttu peate kasutama muid vahendeid, näiteks VBA-d. Siin õpetame teile, kuidas kasutada Outlook VBA-d selle nõude täitmiseks. Üksikasjalikuks saamiseks lugege edasi.

Meeldetuletuse ja tähtpäeva automaatne määramine Outlooki meili märgistamisel

1. Käivitage kohe alguses oma Outlooki programm.
2. Seejärel saate VBA redaktorile juurdepääsu saamiseks vajutada klahvikombinatsiooni Alt + F11.
3. Järgmisena peate järgmises aknas "Microsoft Visual Basic for Applications" topeltklõpsama vasakus servas projektil "ThisOutlookSession".
4. Seejärel kopeerige ja kleepige sellesse allolevad VBA-koodid.

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ärast seda peaksite sellele koodile tavapäraselt alla kirjutama.
6. Hiljem väljuge VBA redaktorist ja jätkake Outlooki makro sätete muutmisega, et lubada ainult digitaalselt allkirjastatud makrod.
7. Lõpuks peate uue makro aktiveerimiseks oma Outlooki taaskäivitama. Pärast seda saate proovida.

• Klõpsake meiliüksuse sabas lipuikooni.
• Korraga muudetakse lipp automaatselt ikooniks "Järgmise nädala lipp".
• Ja selle tähtaeg ja meeldetuletuse kellaaeg määratakse vastavalt teie eelseadistustele koodides.

Ärge paanitsege, kui näete Outlooki krahhi

Kui Outlook ootamatult kokku jookseb, kardavad enamik inimesi paanikat, kuna nad kardavad, et nende Outlooki andmed saavad kahjustada. Tegelikult, kui olete aga võtnud piisavalt ettevaatusabinõusid, ei satu te kunagi paanikasse. Kõige olulisem meede on PST-failide regulaarne varundamine. Lisaks saate oma andmete taastamiseks kasutada ka silmapaistvat tööriista. kahjustatud Outlook andmed, nt DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom