За да се запази пощенската кутия на Outlook в малък размер и да се предотврати повреда на данните в Outlook, се препоръчва да премахнете прикачени файлове от имейлите, получени или изпратени преди определен период. Тази статия ще ви помогне бързо да го постигнете с Outlook VBA.
Както всички знаем, с по-голямата пощенска кутия на Outlook данните на Outlook ще станат много по-уязвими. Затова свиквам да премахвам прикачените файлове в остарелите имейли, които са по-стари от определена дата, тъй като обикновено обикновено съм запазвал тези прикачени файлове на локалния си диск. Но е малко обезпокоително, че трябва да разбера кои имейли са остарели и след това ръчно да премахна прикачените файлове. За да подобря ефективността си, измислям решение чрез Outlook VBA.
Премахване на прикачени файлове от получени имейли, по-стари от определена дата
- Като начало отворете Outlook и се обърнете към раздела „Разработчик“.
- След това натиснете бутона „Visual Basic“ в групата „Код“.
- Ще се появи нов прозорец. В него трябва да отворите нов модул и да копирате следните кодове в него.
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
- Сега можете да излезете от текущия прозорец „Visual Basic“ и да продължите да добавяте макроса към лентата с инструменти за бърз достъп. Следвайте стъпките по-долу:
- Първо, натиснете стрелката надолу в лентата с инструменти за бърз достъп и изберете „Още команди“ от падащия списък.
- След това трябва да изберете „Макроси“ в полето „Избор на команди от“.
- След това изберете правилния макрос и кликнете върху бутона „Добавяне“ в центъра.
- И накрая, щракнете върху бутона „OK“, за да го активирате и да се върнете към главния прозорец на Outlook.
- В крайна сметка можете да намерите и щракнете върху бутона в лентата с инструменти за бърз достъп. Прикачените файлове в пощата, които са по-стари от посочената от вас дата, ще бъдат премахнати бързо.
Премахване на прикачени файлове от изпратени имейли, по-стари от определена дата
За да постигнете тази цел, можете да копирате всички VBA кодове по-горе, но да промените някои редове, като следвате известията по-долу:
- Първо, променете всички „olInbox“ на „olSentItemFolder“ в кодовете на VBA.
- След това заменете “Set olInbox = Session.GetDefaultFolder (olFolderInbox)” с:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- След това заменете “intDatDiff = DateDiff (“ d ”, varItem.ReceivedTime, Now)” с:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Премахване на досадни грешки в Outlook
Ако сте използвали Outlook дълго време, честите грешки трябва да са станали често срещани неща. Очевидно е, че не можете да ги предскажете или напълно да се отървете от тях. Това, което можете да направите, е просто да опитате всичко възможно да ги разрешите. Например използвайте инструмента за поправка на входящата поща, Scanpest.exe, за да коригирайте грешка в имейл на Outlook. Освен това трябва да направите редовно архивиране на данните си в Outlook в случай на неочакван срив.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт SQL Server mdf щети и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com