Upang mapanatili ang maliit na sukat ng Outlook at maiwasan ang katiwalian ng data ng Outlook, iminungkahing alisin ang mga kalakip mula sa mga email na natanggap o naipadala sa isang tukoy na panahon. Tutulungan ka ng artikulong ito na mabilis mong magawa ito sa Outlook VBA.
Tulad ng alam nating lahat, sa Outlook mailbox na mas malaki, ang data ng Outlook ay magiging mas mahina. Samakatuwid, nasanay ako sa pag-aalis ng mga kalakip sa mga may edad na email na mas matanda kaysa sa isang tukoy na petsa, dahil kadalasan ay nai-save ko ang mga kalakip na ito sa aking lokal na disk bago. Ngunit medyo mahirap ito na kailangan kong malaman kung anong mga email ang nasa edad at pagkatapos ay manu-manong alisin ang mga kalakip. Upang mapabuti ang aking kahusayan, nakagawa ako ng isang solusyon sa pamamagitan ng Outlook VBA.
Alisin ang Mga Attachment mula sa Mga Natanggap na Email na Mas Matanda Sa Isang Tiyak na Petsa
- Upang magsimula, buksan ang Outlook at lumiko sa tab na "Developer".
- Pagkatapos ay pindutin ang pindutang "Visual Basic" sa pangkat na "Code".
- Ang isang bagong window ay bubukas. Sa loob nito, dapat mong buksan ang isang bagong module at kopyahin ang mga sumusunod na code dito.
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
- Ngayon ay maaari kang lumabas sa kasalukuyang window na "Visual Basic" at magpatuloy upang idagdag ang macro sa Quick Access Toolbar. Sundin ang mga hakbang sa ibaba:
- Una, pindutin ang pababang arrow sa Quick Access Toolbar at piliin ang "Higit pang Mga Utos" mula sa drop down list.
- Pagkatapos ay dapat mong piliin ang "Macros" sa patlang na "Pumili ng mga utos mula sa."
- Susunod na piliin ang tamang macro at i-click ang pindutang "Idagdag" sa gitna.
- Panghuli, i-click ang pindutang "OK" upang paganahin ito at bumalik sa pangunahing window ng Outlook.
- Sa paglaon maaari mong makita at mag-click sa pindutan sa Quick Access Toolbar. Ang mga kalakip sa mga mail, na mas matanda kaysa sa iyong tinukoy na petsa, ay aalisin nang mabilis.
Alisin ang Mga Attachment mula sa Mga Naipiling Email Mas Matanda Sa Isang Tiyak na Petsa
Upang makamit ang layuning ito, maaari mong kopyahin ang buong mga VBA code sa itaas ngunit baguhin ang ilang mga tiyak na linya sa pamamagitan ng pagsunod sa mga abiso sa ibaba:
- Una, palitan ang lahat ng "olInbox" sa "olSentItemFolder" sa mga VBA code.
- Pagkatapos palitan ang "Itakda ang olInbox = Session.GetDefaultFolder (olFolderInbox)" ng:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- Susunod na palitan ang "intDatDiff = DateDiff (" d ", varItem.ReceivedTime, Ngayon)" sa:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Tanggalin ang Mga Nakakainis na Mga Error sa Outlook
Kung matagal mo nang ginamit ang Outlook, ang madalas na mga pagkakamali ay dapat na naging pangkaraniwang bagay. Malinaw na hindi mo mahuhulaan o ganap na mapupuksa ang mga ito. Ano ang maaari mong gawin ay subukan lamang ang iyong makakaya upang malutas ang mga ito. Halimbawa, gamitin ang tool sa pag-aayos ng inbox, Scanpest.exe to ayusin ang email error sa Outlook. Gayundin, kailangan mong gumawa ng isang regular na pag-backup para sa iyong data sa Outlook sa kaso ng hindi inaasahang pag-crash.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang magkumpuni SQL Server mdf pinsala at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa