Për të mbajtur kutinë postare të Outlook në madhësi të vogël dhe për të parandaluar prishjen e të dhënave të Outlook, sugjerohet të hiqni bashkëngjitjet nga emailet që janë marrë ose dërguar një periudhë të caktuar më parë. Ky artikull do t'ju ndihmojë ta përmbushni shpejt atë me Outlook VBA.
Siç e dimë të gjithë, me kutinë postare të Outlook më të madhe, të dhënat e Outlook do të bëhen shumë më të cenueshme. Prandaj, mësohem të heq bashkëngjitjet në emailet e vjetra të cilat janë më të vjetra se një datë specifike, pasi zakonisht këto bashkëngjitje i kam ruajtur më parë në diskun tim lokal. Por është pak e mundimshme që më duhet të zbuloj se cilat emaile janë të vjetruara dhe më pas të heq manualisht bashkëngjitjet. Për të përmirësuar efikasitetin tim, kam gjetur një zgjidhje me anë të Outlook VBA.
Hiqni bashkëngjitjet nga emailet e marra më të vjetra se një datë specifike
- Për të filluar, hapni Outlook dhe kthehuni te skeda "Zhvilluesi".
- Pastaj shtypni butonin "Visual Basic" në grupin "Code".
- Do të shfaqet një dritare e re. Në të, duhet të hapni një modul të ri dhe të kopjoni kodet e mëposhtme në të.
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
- Tani mund të dilni nga dritarja aktuale "Visual Basic" dhe të vazhdoni të shtoni makro në shiritin e veglave të aksesit të shpejtë. Ndiqni hapat e mëposhtëm:
- Së pari, goditni shigjetën poshtë në shiritin e veglave të aksesit të shpejtë dhe zgjidhni "Më shumë komanda" nga lista rënëse.
- Pastaj duhet të zgjidhni "Macros" në fushën "Zgjidhni komandat nga".
- Më pas zgjidhni makronë e duhur dhe klikoni butonin "Shto" në qendër.
- Së fundi, klikoni butonin "OK" për ta aktivizuar atë dhe kthehuni te dritarja kryesore e Outlook.
- Përfundimisht mund të gjeni dhe klikoni mbi butonin në Shiritin e Veglave të Qasjes së Shpejtë. Bashkëngjitjet në postë, të cilat janë më të vjetra se data e specifikuar, do të hiqen shpejt.
Hiqni bashkëngjitjet nga emailet e dërguara më të vjetra se një datë specifike
Për të arritur këtë qëllim, mund të kopjoni të gjithë kodet VBA të mësipërme, por të ndryshoni disa rreshta duke ndjekur njoftimet më poshtë:
- Së pari, ndryshoni të gjithë "olInbox" në "olSentItemFolder" në kodet VBA.
- Pastaj zëvendësoni "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" me:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- Zëvendësoni më pas "intDatDiff = DateDiff("d", varItem.ReceivedTime, Tani)" me:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Eliminoni gabimet e bezdisshme të Outlook
Nëse e keni përdorur Outlook për një kohë të gjatë, gabimet e shpeshta duhet të jenë bërë çështje të zakonshme. Është e qartë se ju nuk mund t'i parashikoni ose të shpëtoni plotësisht prej tyre. Ajo që mund të bëni është thjesht të përpiqeni më të mirën për t'i zgjidhur ato. Për shembull, përdorni mjetin e riparimit të kutisë hyrëse, Scanpest.exe për rregulloni gabimin e postës elektronike të Outlook. Gjithashtu, duhet të bëni një kopje rezervë të rregullt për të dhënat tuaja të Outlook në rast të një përplasjeje të paparashikuar.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server dëmtim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com