Outlook poçt qutusunu kiçik ölçüdə saxlamaq və Outlook məlumatlarının korlanmasının qarşısını almaq üçün müəyyən bir müddət əvvəl qəbul edilmiş və ya göndərilmiş e-poçtlardan əlavələri silmək tövsiyə olunur. Bu məqalə Outlook VBA ilə bunu tez bir zamanda yerinə yetirməyə kömək edəcək.
Hamımızın bildiyi kimi, Outlook poçt qutusu daha böyük olduqda, Outlook məlumatları daha həssas olacaq. Buna görə də, müəyyən bir tarixdən daha köhnə olan köhnə e-poçtlardakı qoşmaları silməyə öyrəşmişəm, çünki mən adətən bu qoşmaları əvvəllər yerli diskimdə saxlamışam. Ancaq hansı e-poçtların köhnəldiyini öyrənməli və əlavələri əl ilə silməli olduğum bir az əziyyətlidir. Səmərəliliyimi artırmaq üçün Outlook VBA vasitəsilə həll yolu tapıram.
Müəyyən Bir Tarixdən Köhnə Alınmış E-poçtlardan Qoşmaları Silin
- Başlamaq üçün Outlook-u açın və "Developer" sekmesine keçin.
- Sonra “Kod” qrupunda “Visual Basic” düyməsini sıxın.
- Yeni bir pəncərə görünəcək. Orada yeni modul açmalı və aşağıdakı kodları ona kopyalamalısınız.
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
- İndi cari "Visual Basic" pəncərəsindən çıxa və makrosunu Tez Giriş Alətlər Panelinə əlavə etməyə davam edə bilərsiniz. Aşağıdakı addımları izləyin:
- Əvvəlcə Tez Giriş Alətlər Panelində aşağı oxu vurun və açılan siyahıdan "Daha çox əmrlər" seçin.
- Sonra “Komutları seçin” sahəsində “Makrolar”ı seçməlisiniz.
- Sonra düzgün makronu seçin və mərkəzdəki "Əlavə et" düyməsini basın.
- Nəhayət, onu aktivləşdirmək və Outlook əsas pəncərəsinə qayıtmaq üçün “OK” düyməsini klikləyin.
- Nəhayət, Tez Giriş Alətlər Panelində düyməni tapıb üzərinə klikləyə bilərsiniz. Göstərdiyiniz tarixdən daha köhnə olan məktublardakı qoşmalar tez silinəcək.
Göndərilən E-poçtlardan Müəyyən Bir Tarixdən Köhnə Qoşmaları Silin
Bu məqsədə nail olmaq üçün yuxarıdakı bütün VBA kodlarının surətini çıxara bilərsiniz, lakin aşağıdakı bildirişlərə əməl etməklə bəzi müəyyən sətirləri dəyişdirə bilərsiniz:
- Birincisi, VBA kodlarında bütün “olInbox”ı “olSentItemFolder” olaraq dəyişdirin.
- Sonra “Set olInbox = Session.GetDefaultFolder(olFolderInbox)” ilə əvəz edin:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- Sonra “intDatDiff = DateDiff(“d”, varItem.ReceivedTime, İndi)” ilə əvəz edin:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Zəhlətökən Outlook səhvlərini aradan qaldırın
Əgər siz Outlook-u uzun müddət istifadə etmisinizsə, tez-tez baş verən səhvlər ümumi məsələlərə çevrilməlidir. Aydındır ki, siz onları proqnozlaşdırmaq və ya onlardan tamamilə qurtula bilməzsiniz. Edə biləcəyiniz şey onları həll etmək üçün əlinizdən gələni etməkdir. Məsələn, Scanpest.exe olan gələnlər qutusu təmir alətindən istifadə edin Outlook e-poçt səhvini düzəldin. Həmçinin, gözlənilməz qəza halında Outlook məlumatlarınız üçün müntəzəm ehtiyat nüsxəsini çıxarmalısınız.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf zədəsi və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com