Qanday qilib yangi kiruvchi elektron pochta xabarlari bilan bir xil mavzudagi eski elektron pochta xabarlarining nomini o'zgartirish yoki o'chirish

Ba'zi odamlar Outlook yangi elektron pochta xabarlari kelganda eski elektron xatlarning mavzularini avtomatik tekshirishi va agar ular yangi elektron pochta xabarlari bilan bir xil mavzularga ega bo'lsa, eski xatlarning nomini o'zgartirishi yoki o'chirib tashlashi mumkin deb umid qilishadi. Bu Outlook VBA-dan foydalanishni talab qiladi. Ushbu maqola sizga erishishga yordam beradi.

Siz bir xil mavzudagi ko'plab elektron pochta xabarlarini olgan bo'lishingiz kerak. Elektron pochta ro'yxatida ularni aniqlash va farqlash siz uchun biroz qiyinmi? Yoki o'sha eski elektron pochta xabarlari siz uchun mutlaqo foydasiz deb o'ylaysizmi? Agar shunday bo'lsa, yangi xatlar kelganda Outlook-ga avtomatik ravishda barcha mavjud elektron pochta xabarlarini skanerlash va tekshirishga ruxsat berishni xohlashingiz kerak. Yangisi bilan bir xil mavzularga ega bo'lgan elektron pochta xabarlari mavjud bo'lganda, Outlook sizdan ularni nomini o'zgartirish yoki o'chirishni so'rashi mumkin. Shubhasiz, Outlook foydalanuvchilarga bunday xususiyatni taqdim etmaydi. Shuning uchun siz VBA ga murojaat qilishingiz kerak. Bu erda biz sizga batafsil kodlar va operatsiyalarni ochib beramiz.

Avtomatik qayta nomlash yoki eski elektron pochta xabarlarini olib tashlash

1. Avval Outlookni ishga tushirishingiz va "Dasturchi" yorlig'iga o'tishingiz mumkin.
2. Keyin siz "Visual Basic" tugmasini topib, bosishingiz mumkin bo'ladi.
3. Uni bosgandan so'ng siz VBA muharriri oynasiga kirasiz. Unda siz "ThisOutlookSession" loyihasini ochishingiz kerak bo'ladi.
4. Keyin unga quyidagi VBA kodlarini nusxalashingiz va joylashtirishingiz kerak.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

5. Keyinchalik, siz ushbu kodni raqamli imzolashingiz kerak bo'ladi. "Asboblar" > "Raqamli imzo" ni bosing. Keyin qalqib chiquvchi dialog oynasida siz bitta mavjud sertifikatni tanlashingiz mumkin. Agar tayyor sertifikat bo'lmasa, yangisini yaratish uchun "VBA loyihalari uchun raqamli sertifikatlar" dan foydalanishingiz mumkin.
6. Shundan so'ng, siz joriy oynadan chiqishingiz va faqat raqamli imzolangan makroslarga ruxsat berib, so'l sozlamalarini o'zgartirishga o'tishingiz mumkin.
7. Oxir-oqibat, yangi makrosni faollashtirish uchun Outlookni qayta ishga tushirishingiz mumkin. Bundan buyon, Kiruvchi xabarlar qutisiga yangi elektron pochta xabarlari kelganda, Outlook barcha mavjud elektron pochta xabarlarini avtomatik ravishda tekshiradi.

• Agar eski xatlar yangisi bilan bir xil mavzuga ega bo'lsa, Outlook avtomatik ravishda elektron pochta mavzusiga "(Eski)" qo'shimchasini qo'shadi.
• Agar eski elektron xatlar Inbox-da 2 oydan ko'proq vaqt davomida saqlangan bo'lsa, siz quyidagi rasmdagi kabi ularni o'chirishni xohlaysizmi degan so'rov olasiz. O'zingizning ehtiyojlaringizga qarab "Ha" yoki "Yo'q" ni tanlashingiz mumkin.

 Katta hajm tufayli Outlook faylining buzilishi

Ba'zi odamlar Outlookda eski narsalarni muntazam ravishda o'chirish odatiga ega emaslar. Shunday qilib, ularning Outlook fayli katta hajmda bo'ladi, bu esa tavsiya etilmaydi. Buning sababi, katta hajmdagi Outlook fayli kichik hajmdagi faylga qaraganda ancha zaifroq. Fayl buzilgandan so'ng, o'rnatilgan ta'mirlash vositasi Scanpst.exe ko'p hollarda ojiz bo'ladi. Sizning noyob vositangiz ajoyib va ​​yaxshi tasdiqlangan bo'lishi mumkin. buzilgan Outlook PST ta'mirlash vositasikabi DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan ta'mirlash SQL Server mdf ma'lumotlar bazasi va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com