Slik setter du inn og oppdaterer nedtellingsdager automatisk i emner for Outlook-oppgaver

Noen brukere er ivrige etter å automatisk sette inn og oppdatere nedtellingsdager i oppgavenes emner. Så i denne artikkelen vil vi introdusere en intelligent tilnærming for å få det.

Når du åpner en oppgave, vil du definitivt se skjermtipset "Forfaller om XX dager" i overskriften. Likevel, siden du er vant til å sjekke oppgaven direkte i listen, håper du kanskje å se et slikt nedtellingstips rett i oppgaveemnet. Derfor vil vi i det følgende dele en smart måte å automatisk sette inn og oppdatere nedtellingsdager i oppgavenes emner.

Sett inn og oppdater nedtellingsdager automatisk i oppgavenes emner

1. For somtart, utløs Outlook VBA-redigering ved å referere til artikkelen - "Hvordan kjøre VBA-kode i Outlook".
2. Deretter, i "ThisOutlookSession"-prosjektet, legg inn følgende VBA-kode.

Private WithEvents objTasks As Outlook.Items Private objItem As Object Private Sub Application_Startup() Sett objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items 'Automatisk oppdatering av nedtellingsdager i alle oppgaver' Emner på Startup For hver objItem In objTasks Call UpdateCountdownDays(objItem) Next End Sub 'Auto Insert the Countdown Days to New Tasks' Subjects Private Sub objTasks_ItemAdd(ByVal Item As Object) Dim objTask As Outlook.TaskItem Dim Long lCountdownDaysTClass As Sett deretter objTask = Element med objTask lCountdownDays = .DueDate - Date .Subject = .Subject & " (Forfaller om " & lCountdownDays & " days)" .Lagre End With End If End Sub 'Automatisk oppdatering nedtellingsdager ved endring av oppgaver Private Sub objTasks_ItemChange (ByVal Item As Object) Call UpdateCountdownDays(Item) End Sub Private Sub UpdateCountdownDays(ByVal objItem As Object) Dim objTask As Outlook.TaskItem Dim strSubject As String Dim strCountdownNotes As String Dim lCountdownDays As Long If objItem.Class Then = Set objTask objItem strSubject = objTask.Subject 'Erstatt de gamle nedtellingsdagene med ny verdi i oppgaveemne Hvis InStr(1, strSubject, "Due in") > 0 Så strCountdownNotes = Right(strSubject, Len(strSubject) - InStr(1, strSubject, "(Forfaller") + 1) Med objTask lCountdownDays = .DueDate - Date .Subject = Replace(objTask.Subject, strCountdownNotes, "(Forfaller om " & lCountdownDays & " days)") .Save End With End If End If End Under

4. Etter det, restart Outlook-applikasjonen din.
5. Siden da, hver gang du oppretter en ny oppgave, vil Outlook automatisk sette inn nedtellingsdager i emnet.
6. Dessuten, så lenge du start Outlook eller gjøre endringer i en oppgave, vil Outlook automatisk oppdatere nedtellingsdagene.

Hva du skal gjøre hvis du kommer over Outlook-korrupsjon

Det er kjent at Outlook er utsatt for skade. Så har du noen gang lidd av det eller forestilt deg hvordan du skal håndtere det effektivt? Generelt, så lenge du har holdt sikkerhetskopiering av Outlook-data, kan du ganske enkelt gjenopprette data fra sikkerhetskopier. Hvis det ikke er sikkerhetskopier, har du ikke noe annet valg enn å ty til et potent eksternt fikseverktøy, som f.eks DataNumen Outlook Repair, Til gjenopprette PST data.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med