Noen ganger kan du glemme å merke oppgaver som fullførte, slik at det kan være mange forfalte oppgaver i Outlook-oppgavemappen. I dette tilfellet kan du bruke begge veier som er introdusert i denne artikkelen for å batchmerke alle forfalte oppgaver fullført på én gang.
Som du kan se, når en oppgave er forsinket, vil den vises i rød farge, noe som er ganske slående. Imidlertid, most over tid, hvorfor det er så mange forfalte oppgaver i Outlook er at du glemmer å merke dem som fullførte. Derfor kan du ofte ønske å batchmerke alle slike forfalte oppgaver som fullførte. For å se på dette problemet, her vil vi lære deg 2 virkemidler.
Metode 1: Angi visningsfiltre og merk fullført manuelt
- Til start med, start Outlook og gå til Oppgaveruten.
- Åpne deretter en spesifikk Oppgaver-mappe.
- Bytt deretter til "Vis"-fanen og trykk på "Vis innstillinger" -knappen.
- I den nye popup-dialogboksen klikker du på "Filter". Dette vil åpne en ny dialogboks.
- Bytt deretter til "Avansert"-fanen og legg til et spesifikt filter - "Forfallsdato på eller før i går", som følgende bilde.
- Deretter klikker du på en rekke "OK" for å aktivere de nye visningsfiltrene og tilbake til hovedoppgaveruten.
- Nå vil du se at bare forfalte oppgaver vises i listen. Du kan klikke på en av dem og deretter trykke "Ctrl + A" for å velge dem alle.
- Til slutt klikker du på "Merk fullført"-knappen under fanen "Hjem".
På denne måten, hvis du har mange Oppgaver-mapper, bør du manuelt angi visningsfiltre på hver Oppgave-mappe. Det blir veldig kjedelig. Derfor foreslås det å bruke følgende midler, som raskt vil merke alle forfalte oppgaver i alle Oppgaver-mappen fullført i bulk.
Metode 2: Merk som fullført med Outlook VBA
- Helt i starten trykker du på "Alt + F11"-tastene i hovedvinduet i Outlook.
- Kopier og lim deretter inn følgende VBA-koder i et tomt modulvindu i Outlook VBA-editoren.
Sub BatchMarkAllOverdueTasksComplete()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Application.Session.Stores
'Process All PST Files
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim obTasks As Outlook.Items
Dim objTask As Outlook.TaskItem
Dim objSubfolder As Outlook.Folder
'Find the overdue tasks and mark complete
If objCurrentFolder.DefaultItemType = olTaskItem Then
Set objTasks = objCurrentFolder.Items
For Each objTask In objTasks
If (objTask.DueDate < Date) And (objTask.Complete = False) Then
objTask.MarkComplete
End If
Next
End If
'Process all Task folders recursively
If objCurrentFolder.folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- Etter det bør du sørge for at Outlook tillater makroer i makroinnstillinger.
- Til slutt kan du prøve. Klikk på "BatchMarkAllOverdueTasksComplete"-underrutinen og trykk på F5-tasten for å kjøre den.
- På en gang vil alle forfalte oppgaver i alle Oppgaver-mappen bli merket som fullført i grupper.
Tips for å unngå tap av PST-data
På grunn av det faktum at Outlook PST-filen er utsatt for feil og korrupsjon, krever den at du gjør store anstrengelser for å beskytte PST-dataene dine. Først av alt bør du sikkerhetskopiere PST-filen med jevne mellomrom, noe som vil spare deg fra til reparere PST ved PST-skade. Dessuten er det også klokt å forberede et potent fikseverktøy på forhånd, som DataNumen Outlook Repair.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med



