Kako automatski isprazniti fasciklu „Neželjena e-pošta” kada izađete iz Outlooka

Neki korisnici se nadaju da Outlook može automatski isprazniti fasciklu „Neželjena e-pošta” kada napusti Outlook. Iako u Outlooku ne postoji takva funkcija, ona se ipak može realizovati putem VBA.

Možda ste znali da Outlook ima ugrađenu funkciju koja može automatski isprazniti mape "Izbrisane stavke" kada izađete iz Outlooka. Isto tako, možda ćete poželjeti da dobijete sličnu funkciju, odnosno automatsko pražnjenje fascikle „Neželjena e-pošta” kada izađete iz Outlooka. Iako Outlook ne pruža takav kapacitet, još uvijek ga možete generirati pomoću VBA. Ovdje ćemo vas uputiti da to detaljno shvatite.

Automatsko pražnjenje fascikle „Neželjena e-pošta” pri izlasku iz Outlooka

1. Za početak, pokrenite Outlook program.
2. Zatim pritisnite tipke “Alt + F11” za pristup Outlook VBA editoru.
3. U novom prozoru „Microsoft Visual Basic za aplikacije“, trebalo bi da locirate i otvorite projekat „ThisOutlookSession“.
4. Nakon toga, morate kopirati sljedeći VBA kod u ovaj projekat.

Private Sub Application_Quit()
    Dim objJunkFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objDeletedFolder As Outlook.Folder
    Dim objItem As Object
    Dim objProperty As Outlook.UserProperty
 
    Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
 
    For i = objJunkFolder.Items.count To 1 Step -1
        If objJunkFolder.Items(i).Class = olMail Then
           Set objMail = objJunkFolder.Items(i)
 
           'Add the specific property to each junk email
           objMail.UserProperties.Add "Delete", olText
           objMail.Save
           'Delete them
           objMail.Delete
        End If
    Next
 
    Set objDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 
    For Each objItem In objDeletedFolder.Items
        'Find out the junk emails in the "Deleted Items" folder
        Set objProperty = objItem.UserProperties.Find("Delete")
        If TypeName(objProperty) <> "Nothing" Then
           'Permanently delete them
           objItem.Delete
        End If
    Next
 
    'Prompt You
    MsgBox Chr(34) & "Junk Email" & Chr(34) & " Folder Emptied!", vbExclamation + vbOKOnly
End Sub

5. Nakon toga, ovom novom makrou morate dodijeliti digitalni certifikat.

• Prvo pritisnite dugme "Alati".
• Zatim odaberite opciju “Digitalni potpisi” iz padajućeg menija.
• Zatim slijedite upute na ekranu da biste to postigli.

6. Kasnije promijenite postavke makronaredbe Outlooka da omogućite potpisane VBA projekte.
7. Na kraju, ponovo pokrenite Outlook da biste aktivirali ovaj novi makro.
8. Od sada, svaki put kada izađete iz Outlooka, fascikla „Neželjena e-pošta” će se automatski prazniti. I dobićete poruku kao na slici ispod:

Učinkovite mjere za sprječavanje rušenja Outlooka

Ako ste koristili Outlook decenijama, sigurno ste ikada naišli na razne greške. Također, kako vrijeme prolazi, vaš Outlook će se srušiti i Outlook datoteka podataka će biti sklona korupciji. Stoga, kako biste spriječili gubitak Outlookovih podataka, bolje je poduzeti neke mjere opreza, uključujući sigurnosnu kopiju PST datoteke, nabavku moćnog Outlook alata za popravak, kao što je DataNumen Outlook Repair. Toplo se preporučuje zbog svoje stručnosti u PST fix.

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 mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com