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. Эцэст нь та Quick Access Toolbar дээрх товчлуурыг олж, дарж болно. Таны заасан огнооноос илүү хуучин захидал дахь хавсралтуудыг хурдан арилгах болно.

Тодорхой огнооноос өмнөх илгээсэн имэйлийн хавсралтыг устгана уу

Энэ зорилгодоо хүрэхийн тулд та дээрх VBA кодуудыг бүхэлд нь хуулж болох боловч доорх мэдэгдлийг дагаж зарим мөрийг өөрчлөх боломжтой.

1. Нэгдүгээрт, VBA кодын бүх "olInbox" -ыг "olSentItemFolder" болгон өөрчил.
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-ийн гэмтэл програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com