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» терезесінен шығып, макросты Жылдам кіру құралдар тақтасына қосуды жалғастыра аласыз. Төмендегі қадамдарды орындаңыз:

• Біріншіден, жылдам кіру құралдар тақтасындағы төмен көрсеткіні басып, ашылмалы тізімнен «Қосымша пәрмендерді» таңдаңыз.
• Содан кейін «Пәрмендерді таңдау» өрісінде «Макростарды» таңдау керек.
• Содан кейін дұрыс макросты таңдап, ортадағы «Қосу» түймесін басыңыз.
• Соңында, оны қосу және Outlook негізгі терезесіне оралу үшін «OK» түймесін басыңыз.

5. Соңында сіз Жылдам кіру құралдар тақтасындағы түймені тауып, басуға болады. Белгіленген күннен асқан хаттардағы тіркемелер тез жойылады.

Белгілі бір күннен асқан жіберілген электрондық пошталардан тіркемелерді жойыңыз

Бұл мақсатқа жету үшін жоғарыдағы барлық 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