Cara Auto Namakan semula atau Alih Keluar E-mel Lama dengan Subjek yang Sama dengan E-mel Baru yang Masuk

Sesetengah orang berharap bahawa Outlook boleh menyemak secara automatik subjek e-mel yang lebih lama apabila e-mel baharu tiba, dan menamakan semula atau memadam e-mel yang lebih lama jika mereka mempunyai subjek yang sama dengan e-mel baharu. Ini memerlukan penggunaan Outlook VBA. Artikel ini akan membantu anda mencapainya.

Anda mesti pernah menerima banyak e-mel yang mempunyai subjek yang sama. Adakah agak menyusahkan anda untuk mengenal pasti dan membezakannya dalam senarai e-mel? Atau adakah anda fikir bahawa e-mel lama itu tidak berguna untuk anda? Jika ya, anda mesti ingin membenarkan Outlook mengimbas secara automatik dan menyemak semua e-mel sedia ada apabila e-mel baharu tiba. Apabila terdapat e-mel yang mempunyai subjek yang sama seperti yang baharu, Outlook boleh meminta anda sama ada untuk menamakan semula atau memadamkannya. Tanpa keraguan, Outlook tidak menyediakan pengguna dengan ciri jenis ini. Oleh itu, anda perlu menggunakan VBA. Di sini kami akan mendedahkan kod dan operasi terperinci kepada anda.

Auto Ubah Nama atau Alih Keluar E-mel Lama

1. Pada mulanya, anda boleh memulakan Outlook dan pergi ke tab "Pembangun".
2. Kemudian anda akan dapat mencari dan klik pada butang "Visual Basic".
3. Selepas memukulnya, anda akan mengakses tetingkap editor VBA. Di dalamnya, anda perlu membuka projek "ThisOutlookSession".
4. Seterusnya anda harus menyalin dan menampal kod VBA berikut ke dalamnya.

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. Selepas itu, anda dikehendaki menandatangani kod ini secara digital. Tekan "Alat" > "Tandatangan Digital". Kemudian dalam kotak dialog pop timbul, anda boleh memilih satu sijil sedia ada. Jika tiada sijil siap sedia, maka anda boleh menggunakan "Sijil Digital untuk Projek VBA" untuk mencipta sijil baharu.
6. Selepas itu, anda boleh keluar dari tetingkap semasa dan teruskan menukar tetapan makro, membenarkan makro yang ditandatangani secara digital sahaja.
7. Akhirnya, anda boleh memulakan semula Outlook untuk mengaktifkan makro baharu. Mulai sekarang, apabila e-mel baharu tiba di Peti Masuk, Outlook akan menyemak semua e-mel sedia ada secara automatik.

• Jika e-mel lama mempunyai subjek yang sama dengan yang baharu, maka Outlook akan menambahkan akhiran "(Lama)" secara automatik pada subjek e-mel.
• Dan jika e-mel lama telah disimpan dalam Peti Masuk selama lebih 2 bulan, maka anda akan menerima gesaan, bertanyakan anda sama ada mahu memadamkannya, seperti gambar di bawah. Anda boleh memilih "Ya" atau "Tidak" berdasarkan keperluan anda sendiri.

 Kerosakan Fail Outlook Kerana Saiz Besar

Sesetengah orang tidak mempunyai tabiat memadam item lama secara berkala dalam Outlook. Oleh itu, fail Outlook mereka akan bersaiz besar, yang mana tidak digalakkan. Ini kerana fail Outlook yang bersaiz besar jauh lebih terdedah berbanding fail bersaiz kecil. Sebaik sahaja fail rosak, alat pembaikan terbina dalam, Scanpst.exe, tidak akan berdaya dalam kebanyakan kes. Resort unik anda mungkin merupakan yang luar biasa dan terbukti dengan baik. alat pembaikan Outlook PST rosak, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki rosak SQL Server pangkalan data mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com