Kā ātri noņemt pielikumus no e-pastiem, kas ir vecāki par noteiktu datumu, izmantojot Outlook VBA

Lai Outlook pastkaste būtu maza un novērstu Outlook datu bojājumus, ir ieteicams noņemt pielikumus no e-pastiem, kas saņemti vai nosūtīti pirms noteikta laika. Šis raksts palīdzēs ātri to paveikt, izmantojot programmu Outlook VBA.

Kā mēs visi zinām, ja Outlook pastkaste būs lielāka, Outlook dati kļūs daudz neaizsargātāki. Tāpēc es pierodu noņemt pielikumus novecojušajiem e-pastiem, kas ir vecāki par noteiktu datumu, jo parasti šos pielikumus esmu saglabājis savā lokālajā diskā. Bet tas ir nedaudz apgrūtinoši, ka man ir jānoskaidro, kuri e-pasta ziņojumi ir novecojuši, un pēc tam manuāli jānoņem pielikumi. Lai uzlabotu savu efektivitāti, es nāku klajā ar risinājumu, izmantojot Outlook VBA.

Noņemiet pielikumus no saņemtajiem e-pasta ziņojumiem, kas ir vecāki par noteiktu datumu

1. Lai sāktu, atveriet programmu Outlook un atveriet cilni “Izstrādātājs”.
2. Pēc tam nospiediet pogu "Visual Basic" grupā "Kods".
3. Parādīsies jauns logs. Tajā jums vajadzētu atvērt jaunu moduli un iekopēt tajā šādus kodus.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

4. Tagad varat iziet no pašreizējā Visual Basic loga un turpināt pievienot makro ātrās piekļuves rīkjoslai. Veiciet tālāk norādītās darbības.

• Pirmkārt, ātrās piekļuves rīkjoslā noklikšķiniet uz lejupvērstās bultiņas un nolaižamajā sarakstā izvēlieties "Citas komandas".
• Pēc tam laukā “Izvēlēties komandas no” atlasiet “Makro”.
• Pēc tam atlasiet pareizo makro un noklikšķiniet uz pogas "Pievienot" centrā.
• Visbeidzot, noklikšķiniet uz pogas “OK”, lai to iespējotu un atgrieztos Outlook galvenajā logā.

5. Galu galā jūs varat atrast pogu un noklikšķināt uz tās ātrās piekļuves rīkjoslā. Vēstuļu pielikumi, kas ir vecāki par norādīto datumu, tiks ātri noņemti.

Noņemiet pielikumus no nosūtītajiem e-pasta ziņojumiem, kas ir vecāki par noteiktu datumu

Lai sasniegtu šo mērķi, varat kopēt visus iepriekš minētos VBA kodus, bet mainīt dažas rindas, izpildot tālāk sniegtos paziņojumus.

1. Pirmkārt, mainiet visu “olInbox” uz “olSentItemFolder” VBA kodos.
2. Pēc tam aizstājiet “Iestatīt olInbox = Session.GetDefaultFolder(olFolderInbox)” ar:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Pēc tam aizstājiet “intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” ar:

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Novērsiet kaitinošas Outlook kļūdas

Ja esat lietojis programmu Outlook ilgu laiku, biežas kļūdas noteikti ir kļuvušas par izplatītām lietām. Ir skaidrs, ka jūs nevarat paredzēt vai pilnībā atbrīvoties no tiem. Tas, ko jūs varat darīt, ir tikai mēģināt tos atrisināt. Piemēram, izmantojiet iesūtnes labošanas rīku Scanpest.exe izlabojiet Outlook e-pasta kļūdu. Jums arī regulāri jāveic Outlook datu dublējums neparedzētas avārijas gadījumā.

Autora ievads:

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