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

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

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

ავტომატური წაშლა ელ.წერილი კონკრეტული გამგზავნისგან X დღის შემდეგ

1. დასაწყისისთვის, გაუშვით თქვენი Outlook აპლიკაცია.
2. შემდეგ, ჩართეთ Outlook VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
3. შემდეგი, დააკოპირეთ შემდეგი VBA კოდი "ThisOutlookSession" პროექტში.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

4. ამის შემდეგ, გადატვირთეთ Outlook ამ მაკროს გასააქტიურებლად.
5. მას შემდეგ, ყოველ ჯერზე, როდესაც კონკრეტული გამგზავნის ახალი ელფოსტა შემოდის Inbox-ში, მას მიენიჭება ვადის გასვლის კონკრეტული დრო - მისი მიღებიდან კონკრეტული დღეები.
6. შემდეგ, ყოველ ჯერზე, როდესაც Outlook-ს გაუშვებთ, Outlook ავტომატურად შეამოწმებს და წაშლის ვადაგასულ წერილებს კონკრეტული გამგზავნისგან.

აღადგინეთ Outlook მონაცემები კორუფციის შემდეგ

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

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

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