როგორ სწრაფად ამოიღოთ დანართები კონკრეტულ თარიღზე ძველი ელფოსტიდან Outlook VBA-ით

იმისათვის, რომ შევინარჩუნოთ Outlook საფოსტო ყუთი მცირე ზომის და თავიდან აიცილოთ Outlook მონაცემთა კორუფცია, რეკომენდებულია დანართების წაშლა იმ ელ.წერილებიდან, რომლებიც მიღებული ან გაგზავნილია კონკრეტული პერიოდის წინ. ეს სტატია დაგეხმარებათ სწრაფად შეასრულოთ ის Outlook VBA-ით.

როგორც ყველამ ვიცით, თუ Outlook საფოსტო ყუთი უფრო დიდია, Outlook მონაცემები ბევრად უფრო დაუცველი გახდება. ამიტომ, მე შევეჩვიე ხანდაზმულ ელ.წერილებში დანართების ამოღებას, რომლებიც უფრო ძველია, ვიდრე კონკრეტულ თარიღს, რადგან, როგორც წესი, ეს დანართები ადრე მქონდა შენახული ჩემს ადგილობრივ დისკზე. მაგრამ ცოტა პრობლემურია, რომ უნდა გავარკვიო, რომელი ელ.წერილია დაძველებული და შემდეგ ხელით წავშალო დანართები. ჩემი ეფექტურობის გაუმჯობესების მიზნით, მე გამოვნახე გამოსავალი Outlook VBA-ის საშუალებით.

წაშალეთ დანართები კონკრეტულ თარიღზე ძველი მიღებული ელ.წერილებიდან

1. დასაწყისისთვის, გახსენით Outlook და გადადით "დეველოპერი" ჩანართზე.
2. შემდეგ დააჭირეთ ღილაკს "Visual Basic" ჯგუფში "კოდი".
3. გამოჩნდება ახალი ფანჯარა. მასში თქვენ უნდა გახსნათ ახალი მოდული და დააკოპიროთ მასში შემდეგი კოდები.

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. ახლა შეგიძლიათ გამოხვიდეთ „Visual Basic“-ის მიმდინარე ფანჯრიდან და გააგრძელოთ მაკროს დამატება Quick Access Toolbar-ში. მიჰყევით ქვემოთ მოცემულ ნაბიჯებს:

• პირველ რიგში, დააჭირეთ ქვემოთ ისარს სწრაფი წვდომის ხელსაწყოთა ზოლში და ჩამოსაშლელი სიიდან აირჩიეთ „მეტი ბრძანებები“.
• შემდეგ თქვენ უნდა აირჩიოთ „მაკროები“ ველში „აირჩიე ბრძანებები“.
• შემდეგ აირჩიეთ სწორი მაკრო და დააჭირეთ ღილაკს "დამატება" ცენტრში.
• ბოლოს დააწკაპუნეთ ღილაკზე „OK“ მის გასააქტიურებლად და დაუბრუნდით Outlook-ის მთავარ ფანჯარას.

5. საბოლოოდ შეგიძლიათ იპოვოთ და დააწკაპუნოთ ღილაკზე სწრაფი წვდომის ინსტრუმენტთა პანელში. წერილებში დანართები, რომლებიც თქვენს მითითებულ თარიღზე ძველია, სწრაფად წაიშლება.

წაშალეთ დანართები კონკრეტულ თარიღზე ძველი გაგზავნილი წერილებიდან

ამ მიზნის მისაღწევად, შეგიძლიათ დააკოპიროთ მთელი VBA კოდები ზემოთ, მაგრამ შეცვალოთ გარკვეული ხაზები ქვემოთ მოცემული შენიშვნების მიყოლებით:

1. პირველ რიგში, შეცვალეთ ყველა "olInbox" "olSentItemFolder" VBA კოდებში.
2. შემდეგ შეცვალეთ „Set olInbox = Session.GetDefaultFolder(olFolderInbox)“-ით:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. შემდეგ ჩაანაცვლეთ „intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)”-ით:

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

აღმოფხვრა შემაშფოთებელი Outlook შეცდომები

თუ თქვენ იყენებთ Outlook-ს დიდი ხნის განმავლობაში, ხშირი შეცდომები უნდა გახდეს ჩვეულებრივი საკითხი. აშკარაა, რომ თქვენ არ შეგიძლიათ წინასწარ განსაზღვროთ ან მთლიანად მოიცილოთ ისინი. რისი გაკეთებაც შეგიძლიათ, მხოლოდ სცადოთ მათი გადაჭრა. მაგალითად, გამოიყენეთ შემოსულების შეკეთების ინსტრუმენტი, Scanpest.exe Outlook ელ.ფოსტის შეცდომის გამოსწორება. ასევე, თქვენ უნდა გააკეთოთ რეგულარული სარეზერვო ასლი თქვენი Outlook მონაცემებისთვის მოულოდნელი ავარიის შემთხვევაში.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის სარემონტო SQL Server mdf დაზიანება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად