Če ste navajeni odstraniti priloge e-poštnih sporočil, potem ko jih pošljete, lahko uporabite metodo, predstavljeno v tem članku, ki uporablja Outlook VBA, da vam pomaga pri samodejnem pridobivanju.
Ker so priloge odhodnih e-poštnih sporočil običajno shranjene v vašem osebnem računalniku, ste morda navajeni brisati priloge, potem ko pošljete e-poštna sporočila. Tako bo vaša datoteka PST majhna, kar lahko ne le zagotovi dobro delovanje vašega Outlooka, ampak tudi zmanjša možnosti za poškodbe PST. Če torej želite, da Outlook samodejno izbriše priloge odhodnih e-poštnih sporočil, lahko uporabite naslednjo metodo, ki uporablja kode VBA.
Samodejno odstranite priloge e-pošte po pošiljanju
- Na začetku zaženite aplikacijo Outlook.
- Nato pritisnite bližnjične tipke »Alt + F11«.
- Nato boste vstopili v urejevalnik Outlook VBA.
- Nato morate odpreti okno projekta »ThisOutlookSession«.
- Nato vanj kopirajte in prilepite naslednje kode VBA.
Public WithEvents objSentMails As Outlook.Items
Private Sub Application_Startup()
Set objSentMails = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
Dim objSentMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim i As Long
Dim strAttachmentInfo As String
'Only work on emails
If Item.Class = olMail Then
Set objSentMail = Item
End If
Set objAttachments = objSentMail.attachments
While objAttachments.Count > 0
'Get the information of removed attachments
strAttachmentInfo = "<HTML><BODY>Attachment Removed: " & objAttachments.Item(1).DisplayName & "</HTML></BODY>---------------------------------------------------------" & strAttachmentInfo
objAttachments.Item(1).Delete
Wend
'Insert the information of removed attachments to the body
objSentMail.HTMLBody = strAttachmentInfo & objSentMail.HTMLBody
objSentMail.Save
End Sub
- Po tem bi morali podpisati to kodo.
- Najprej za ustvarjanje potrdila uporabite digitalna potrdila za projekte VBA.
- Nato dodelite to potrdilo novemu makru. Kliknite »Orodja« > »Podpis« in sledite navodilom na zaslonu.
- Pozneje se lahko vrnete v glavno okno Outlooka in kliknete »Varnost makrov« pod zavihkom »Razvijalec«.
- Nato v pojavnem pogovornem oknu spremenite nastavitve makra, da dovolite digitalno podpisane makre.
- Končno znova zaženite Outlook, da aktivirate nov projekt VBA.
- Od zdaj naprej se bodo priloge samodejno izbrisale vsakič, ko pošljete e-poštno sporočilo, kot je ta posnetek zaslona:
Pravočasno rešite težave z Outlookom
Nedvomno dejstvo je, da je Outlook nagnjen k napakam. Če torej želite svoje Outlookove podatke zaščititi pred izgubo ali poškodbo, morate vložiti veliko truda, vključno z rednim varnostnim kopiranjem podatkov in vzdrževanjem robustnega Outlook popravek orodje v bližini, kot npr DataNumen Outlook Repair.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com