Kaip automatiškai nustatyti priminimą ir terminą pažymint „Outlook“ el. paštą, kad būtų galima stebėti

„Outlook“ leidžia vartotojams pažymėti el. laiškus su pasirinktiniu tolesniu priminimu ir terminu. Bet jūs turite jį pasirinkti ir įjungti rankiniu būdu. Šis straipsnis išmokys jus, kaip tai pasiekti automatiškai naudojant VBA.

„Outlook“ suteikia mums „Flag“ funkciją, kuri leidžia mums daug patogiau sekti svarbius el. laiškus. Tai ne tik leidžia mums išsiųsti el. laišką, bet ir leidžia pasirinkti pageidaujamą vėliavėlės piktogramą, priskirti konkrečią terminą ir netgi nurodyti priminimą el. paštu. Be jokių abejonių, tai labai patogu.

Tačiau daugelis vartotojų vis dar turi kitą norą. Jie tikisi, kad „Outlook“ gali automatiškai nurodyti santykinai fiksuotą priskirtą terminą ir priminimo laiką pažymėtiems el. laiškams, pvz., 3 dienos po šiandien, 1 savaitė po šiandien ir tt. Tiesą sakant, „Outlook“ neturi tokios savosios funkcijos. Taigi, jums reikia pakartotinai naudoti kitas priemones, pavyzdžiui, VBA. Čia mes išmokysime jus naudoti „Outlook VBA“, kad įgyvendintumėte šį reikalavimą. Skaitykite toliau, kad sužinotumėte išsamiau.

Automatiškai nustatykite priminimą ir terminą, kai pažymite „Outlook“ el

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada galite paspausti „Alt + F11“ sparčiuosius klavišus, kad pasiektumėte VBA redaktorių.
3. Kitame lange „Microsoft Visual Basic for Applications“ turite du kartus spustelėti projektą „ThisOutlookSession“ kairėje pusėje.
4. Tada nukopijuokite ir įklijuokite toliau pateiktus 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. Po to turėtumėte pasirašyti šį kodą kaip įprasta.
6. Vėliau išeikite iš VBA rengyklės ir keiskite „Outlook“ makrokomandos nustatymus, kad įgalintumėte tik skaitmeniniu būdu pasirašytas makrokomandas.
7. Galiausiai, norint suaktyvinti naują makrokomandą, reikia paleisti iš naujo „Outlook“. Po to galite pabandyti.

• Spustelėkite vėliavėlės piktogramą el. pašto elemento gale.
• Iš karto vėliava bus automatiškai pakeista į piktogramą „Kitos savaitės vėliava“.
• O jo terminas ir priminimo laikas bus nustatyti pagal jūsų išankstinį kodų nustatymą.

Neišsigąskite susidūrę su „Outlook“ gedimu

Kai „Outlook“ netikėtai sugenda, dauguma žmonių bijo panikos, nes baiminasi, kad jų „Outlook“ duomenys bus sugadinti. Tačiau iš tikrųjų, jei ėmėtės pakankamai atsargumo priemonių, niekada nepanikuosite. Svarbiausia priemonė – reguliariai kurti PST failų atsargines kopijas. Be to, galite pasinaudoti populiaria priemone, kad atkurtumėte savo duomenis. sugadinta Outlook duomenis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com