Cum să inserați și să actualizați automat zilele de numărătoare inversă în subiectele sarcinilor Outlook

Unii utilizatori sunt dornici să introducă și să actualizeze automat zilele de numărătoare inversă în subiectele sarcinilor. Deci, în acest articol, vom introduce o abordare inteligentă pentru a-l obține.

Când deschideți o sarcină, veți vedea cu siguranță sfatul de ecran „Scadență în XX zile” în antet. Cu toate acestea, deoarece sunteți obișnuit să verificați sarcina direct în listă, este posibil să sperați să vedeți un astfel de sfat de numărătoare inversă direct în subiectul sarcinii. Prin urmare, în cele ce urmează, vom împărtăși o modalitate inteligentă de inserare și actualizare automată a zilelor de numărătoare inversă în subiectele sarcinilor.

Inserarea și actualizarea automată a zilelor de numărătoare inversă în subiectele sarcinilor

1. Pentru noitart, declanșați editorul Outlook VBA făcând referire la articol – „Cum să rulați codul VBA în Outlook".
2. Apoi, în proiectul „ThisOutlookSession”, puneți următorul cod VBA.

Private WithEvents objTasks As Outlook.Items Private objItem Ca obiect Private Sub Application_Startup() Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks). Elemente „Actualizare automată zilele numărătoare inversă în toate sarcinile” Subiectele pe Startup Pentru fiecare element obj În objTasks Apelați UpdateCountdownDays(objItem) Next End Sub „Inserare automată zilele numărătoarea inversă în sarcini noi” Subiecte Private Sub objTasks_ItemAdd(ByVal Item As Object) Dim objTask As Outlook.TaskItem Dim lCountdownDays As Long = If Item.DaysClass As Long Apoi Setați objTask = Element cu objTask lCountdownDays = .DueDate - Date .Subject = .Subject & " (Due in " & lCountdownDays & " days)". (ByVal Element ca obiect) Apelați UpdateCountdownDays(Item) End Sub Private Sub UpdateCountdownDays(ByVal objItem ca obiect) Dim objTask As Outlook.TaskItem Dim strSubject As String Dim strCountdownNotes As String Dim lCountdownDays As Long If objItem.Class =n Set objItem.Class =n Set objTaks objItem strSubject = objTask.Subject 'Înlocuiește vechile zile de numărătoare inversă cu o nouă valoare în Task Subject Dacă InStr(1, strSubject, "Due in") > 0 Then strCountdownNotes = Right(strSubject, Len(strSubject) - InStr(1, strSubject, „(Due in”) + 1) Cu objTask lCountdownDays = .DueDate - Date .Subject = Replace(objTask.Subject, strCountdownNotes, „(Due in „ & lCountdownDays & „ days)”) .Salvare End With End If End If End Sub

4. După aceea, restart aplicația dvs. Outlook.
5. De atunci, de fiecare dată când creați o sarcină nouă, Outlook va insera automat zilele numărătoarea inversă în subiectul său.
6. În plus, atâta timp cât tu start Outlook sau face modificări într-o activitate, Outlook va actualiza automat zilele numărătoarea inversă.

Ce să faci dacă te confrunți cu corupția Outlook

Se știe că Outlook este susceptibil la deteriorare. Astfel, ați suferit vreodată sau v-ați imaginat cum să o faceți eficient? În general, atâta timp cât ați continuat să faceți copii de siguranță ale datelor Outlook, puteți pur și simplu să restaurați datele din backup. Dacă nu există copii de rezervă, nu aveți de ales decât să recurgeți la un instrument extern puternic de remediere, cum ar fi DataNumen Outlook Repair, Pentru a recuperați PST de date.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com