Ponekad možete zaboraviti označiti zadatke dovršenim, tako da može biti mnogo zakasnelih zadataka u mapi Outlook Zadaci. U ovom slučaju, možete koristiti bilo koji način predstavljen u ovom članku kako biste odjednom označili sve zakasnele zadatke dovršene.
Kao što vidite, kada zadatak postane neispunjen rok, bit će prikazan crvenom bojom, što je prilično upečatljivo. Međutim, većinu vremena, razlog toliko neispunjenih zadataka u vašem Outlooku je taj što zaboravite označiti ih kao završene. Stoga, često možete poželjeti da sve takve neispunjene zadatke označite kao završene u grupi. Da bismo riješili ovaj problem, ovdje ćemo vas naučiti dva načina.

Metoda 1: Postavite filtere prikaza i ručno označite dovršeno
- Za početak, pokrenite Outlook i otvorite okno Zadaci.
- Zatim otvorite određeni folder Zadaci.
- Zatim se prebacite na karticu "Prikaz" i pritisnite dugme "Postavke prikaza".
- U novom iskačućem dijaloškom okviru kliknite na “Filter”. Ovo će otvoriti drugi dijaloški okvir.
- Nakon toga, prebacite se na karticu „Napredno“, a zatim dodajte određeni filter – „Rok do jučer ili prije“, kao na sljedećoj slici.
- Nakon toga, kliknite niz "OK" da aktivirate nove filtere pogleda i vratite se u glavno okno Zadaci.
- Sada ćete vidjeti da se na listi prikazuju samo zakasneli zadaci. Možete kliknuti na jedan od njih, a zatim pritisnuti “Ctrl + A” da ih sve odaberete.
- Na kraju, kliknite na dugme "Označi kao završeno" ispod kartice "Početna".
Na taj način, ako imate mnogo foldera Zadaci, trebali biste ručno postaviti filtere prikaza za svaku mapu Zadaci. Biće veoma zamorno. Stoga se predlaže korištenje sljedećih sredstava koja će brzo označiti sve zakasnele zadatke u svim folderima Zadaci dovršenim.
Metod 2: Označite dovršeno sa Outlook VBA
- Na samom početku pritisnite tipke “Alt + F11” u glavnom prozoru programa Outlook.
- Zatim u Outlook VBA editoru kopirajte i zalijepite sljedeće VBA kodove u prazan prozor modula.
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
- Nakon toga, trebali biste osigurati da Outlook dozvoljava makronaredbe u postavkama makroa.
- Na kraju, možete probati. Kliknite na potprogram “BatchMarkAllOverdueTasksComplete” i pritisnite tipku F5 da biste je pokrenuli.
- Odjednom će svi zakasneli zadaci u svim folderima Zadaci biti označeni kao završeni u grupama.
Savjeti za izbjegavanje gubitka PST podataka
Zbog činjenice da je Outlook PST datoteka sklona greškama i korupciji, zahtijeva od vas da uložite velike napore da zaštitite svoje PST podatke. Prije svega, trebali biste redovno napraviti sigurnosnu kopiju PST datoteke, što će vas spasiti od do popraviti PST u slučaju PST oštećenja. Osim toga, također je mudro unaprijed pripremiti moćan alat za popravak, npr DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com


