Ak ste zvyknutí odstraňovať prílohy e-mailov po ich odoslaní, môžete použiť metódu uvedenú v tomto článku, ktorá vám pomôže s automatickým získaním programu Outlook VBA.
Keďže prílohy odchádzajúcich e-mailov sú zvyčajne uložené vo vašom vlastnom počítači, môžete si zvyknúť na odstraňovanie príloh po odoslaní e-mailov. Váš súbor PST tak zostane v malej veľkosti, čo môže nielen zabezpečiť dobrý výkon vášho programu Outlook, ale aj znížiť pravdepodobnosť poškodenia PST. Ak teda chcete, aby Outlook automaticky odstraňoval prílohy odchádzajúcich e-mailov, môžete použiť nasledujúcu metódu, ktorá používa kódy VBA.
Automaticky odstrániť prílohy e-mailu po jeho odoslaní
- Hneď na začiatku spustite aplikáciu Outlook.
- Potom stlačte klávesové skratky „Alt + F11“.
- Ďalej sa dostanete do editora Outlook VBA.
- Následne by ste mali otvoriť okno projektu „ThisOutlookSession“.
- Potom do nej skopírujte a prilepte nasledujúce kódy 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
- Potom by ste mali podpísať tento kód.
- Najprv vytvorte certifikát pomocou digitálnych certifikátov pre projekty VBA.
- Potom priraďte tento certifikát novému makru. Kliknite na „Nástroje“ > „Podpis“ a potom už len postupujte podľa pokynov na obrazovke.
- Neskôr sa môžete vrátiť do hlavného okna programu Outlook a kliknúť na „Zabezpečenie makra“ na karte „Vývojár“.
- Ďalej vo vyskakovacom dialógovom okne zmeňte nastavenia makier, aby ste povolili digitálne podpísané makrá.
- Nakoniec reštartujte Outlook, aby ste aktivovali nový projekt VBA.
- Odteraz sa pri každom odoslaní e-mailu automaticky odstránia jeho prílohy, ako napríklad nasledujúca snímka obrazovky:
Vyriešte problémy s Outlookom včas
Je nesporným faktom, že Outlook je náchylný na chyby. Preto, ak chcete chrániť svoje údaje programu Outlook pred stratou alebo poškodením, musíte vynaložiť veľa úsilia vrátane pravidelného zálohovania údajov a udržiavania robustného Oprava programu Outlook nástroj v okolí, ako napr DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S