Kā automātiski iztukšot mapi “Junk E-mail”, izejot no programmas Outlook

Daži lietotāji cer, ka, izejot no programmas Outlook, Outlook var automātiski iztukšot mapi “Nevēlamais e-pasts”. Lai gan programmā Outlook nav šādas funkcijas, to joprojām var realizēt, izmantojot VBA.

Varbūt jūs zināt, ka programmai Outlook ir iebūvēta funkcija, kas, izejot no programmas Outlook, var automātiski iztukšot mapes “Dzēstie vienumi”. Tāpat, iespējams, vēlēsities iegūt līdzīgu funkciju, proti, mapes “Junk E-mail” automātiska iztukšošana, izejot no programmas Outlook. Lai gan programma Outlook nenodrošina šādu ietilpību, jūs joprojām varat to ģenerēt, izmantojot VBA. Šeit mēs palīdzēsim jums to detalizēti realizēt.

Automātiski iztukšot mapi “Nevēlamais e-pasts”, izejot no programmas Outlook

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam nospiediet taustiņu “Alt + F11” taustiņus, lai piekļūtu Outlook VBA redaktoram.
3. Jaunajā logā “Microsoft Visual Basic for Applications” jums jāatrod un jāatver projekts “ThisOutlookSession”.
4. Pēc tam šajā projektā jums ir jākopē šāds VBA kods.

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. Pēc tam šim jaunajam makro jums jāpiešķir digitāls sertifikāts.

• Vispirms nospiediet pogu “Rīki”.
• Pēc tam nolaižamajā izvēlnē izvēlieties opciju “Digitālie paraksti”.
• Pēc tam izpildiet ekrānā redzamos norādījumus.

6. Vēlāk mainiet savus Outlook makro iestatījumus, lai iespējotu parakstītus VBA projektus.
7. Visbeidzot, restartējiet programmu Outlook, lai aktivizētu šo jauno makro.
8. Turpmāk katru reizi, izejot no programmas Outlook, mape “Nevēlamais e-pasts” tiks automātiski iztukšota. Un jūs saņemsit tādu ziņojumu kā zemāk redzamais attēls:

Efektīvi pasākumi Outlook avāriju novēršanai

Ja esat izmantojis programmu Outlook gadu desmitiem, jums, iespējams, ir radušās dažādas kļūdas. Turklāt laika gaitā jūsu Outlook mēdz avarēt, un Outlook datu fails būs pakļauts korupcijai. Tādēļ, lai novērstu Outlook datu zaudēšanu, labāk veiciet dažus piesardzības pasākumus, tostarp PST faila dublēšanu, spēcīga Outlook labošanas rīka, piemēram, DataNumen Outlook Repair. Tas ir ļoti ieteicams, ņemot vērā tā pieredzi PST labojums.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar