Si të zbrazni automatikisht dosjen "Junk E-mail" kur dilni nga Outlook

Disa përdorues shpresojnë se Outlook mund të zbrazë automatikisht dosjen "Junk E-mail" kur të dalë nga Outlook. Megjithëse nuk ka një veçori të tillë në Outlook, ai ende mund të realizohet përmes VBA.

Ndoshta e keni ditur se Outlook ka një veçori të integruar, e cila mund të zbrazë automatikisht dosjet "Artikuj të fshirë" kur të dilni nga Outlook. Po kështu, mund të dëshironi të blini një funksion të ngjashëm, përkatësisht zbrazjen automatike të dosjes "Junk E-mail" kur dilni nga Outlook. Edhe pse Outlook nuk ofron një kapacitet të tillë, ju ende mund ta gjeneroni atë me VBA. Këtu do t'ju udhëzojmë ta realizoni në detaje.

Zbrazni automatikisht dosjen "Junk E-mail" kur dilni nga Outlook

1. Për të filluar, hapni programin tuaj Outlook.
2. Më pas shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA të Outlook.
3. Në dritaren e shfaqur "Microsoft Visual Basic për aplikacione", ju duhet të gjeni dhe hapni projektin "ThisOutlookSession".
4. Më pas, duhet të kopjoni kodin e mëposhtëm VBA në këtë projekt.

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. Pas kësaj, ju duhet të caktoni një certifikatë dixhitale në këtë makro të re.

• Së pari shtypni butonin "Vegla".
• Pastaj zgjidhni opsionin "Nënshkrimet Dixhitale" nga menyja rënëse.
• Më pas ndiqni udhëzimet në ekran për ta realizuar atë.

6. Më vonë ndryshoni cilësimet tuaja makro të Outlook për të aktivizuar projektet e nënshkruara VBA.
7. Në fund të fundit, rinisni Outlook-un tuaj për të aktivizuar këtë makro të re.
8. Tani e tutje, sa herë që dilni nga Outlook, dosja "E-mail i padëshiruar" do të zbrazet automatikisht. Dhe do të merrni një mesazh si imazhi më poshtë:

Masa efektive për të parandaluar përplasjet e Outlook

Nëse e keni përdorur Outlook për dekada, duhet të keni hasur ndonjëherë në një sërë gabimesh. Gjithashtu, me kalimin e kohës, Outlook juaj do të priret të rrëzohet dhe skedari i të dhënave Outlook do të jetë i prirur ndaj korrupsionit. Prandaj, për të parandaluar humbjen e të dhënave të Outlook, është më mirë të bëni disa masa paraprake, duke përfshirë rezervimin e skedarit PST, marrjen në dorë të një mjeti të fuqishëm riparimi të Outlook, si p.sh. DataNumen Outlook Repair. Rekomandohet shumë për shkak të ekspertizës së tij në Rregullim PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com