If you’re accustomed to removing the attachments of emails after you sending them out, you can use the method introduced in this article, which is using Outlook VBA to help you auto get it.
As the attachments of the outgoing emails are usually stored in your own PC, you may be used to deleting the attachments after you send out the emails. This will keep your PST file in small size, which can not only ensure good performance of your Outlook but also reduce the odds of PST corruption. Therefore, if you would like to let Outlook automatically delete the attachments of outgoing emails, you can use the following method, which is applying VBA codes.
Auto Remove the Attachments of an Email after Sending It
- At the very outset, launch your Outlook application.
- Then press “Alt + F11” key shortcuts.
- Next you will get into the Outlook VBA editor.
- Subsequently, you should open the “ThisOutlookSession” project window.
- Then copy and paste the following VBA codes into it.
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
- After that, you ought to sign this code.
- Firstly, use Digital Certificates for VBA Projects to create a certificate.
- Then assign this certificate to the new macro. Click “Tools” > “Signature” and then just follow the onscreen instructions.
- Later you can back to main Outlook window and hit “Macro Security” under “Developer” tab.
- Next in the popup dialog box, change macro settings to permit the digitally signed macros.
- Finally restart your Outlook to activate the new VBA project.
- From now on, every time when you send an email out, its attachments will be deleted automatically, like the following screenshot:
Resolve Outlook Issues in Time
It is an unquestioned fact that Outlook is error prone. Therefore, if you would like to protect your Outlook data from loss or corruption, you have to spend a lot of efforts, including making regular data backups and keeping a robust Outlook fix tool in vicinity, such as DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupt mdf and outlook repair software products. For more information visit www.datanumen.com