If you received an email that contains multiple embedded objects, including tables, pictures, charts and WordArt, etc. and now you want to quickly pitch on all of these objects, you can refer to this article. Here we will guide you how to get it in one go.
At times, you may need to quickly select all the inserted objects in an email. For instance, you would like to quickly copy all of them to a Word document or other files. Of course, you can choose to select them one by one manually. However, it’s undoubtedly too tedious and troublesome. Thus now we will introduce you a way, which is far more effective.
Quickly Select All the Inserted Objects in Your Email
- To start with, launch your Outlook program.
- Then, open the source email in the Message window.
- Next, get access to Outlook VBA editor. As for how, you can read the article – “How to Run VBA Code in Your Outlook”.
- Subsequently, in the new “Microsoft Visual Basic for Applications” window, it is essential to activate the “MS Word Object Library”. You can get the detailed steps in the post – “How to Add an Object Library Reference in VBA”.
- After that, copy and paste the VBA code below into a module or project.
Sub SelectAllInsertedObjectsInEmail() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objShape As Word.InlineShape Dim objTable As Word.Table On Error Resume Next 'Get the currently opened email Set objMail = Outlook.Application.ActiveInspector.CurrentItem Set objMailDocument = objMail.GetInspector.WordEditor objMailDocument.DeleteAllEditableRanges wdEditorEveryone 'Select all the inserted shapes For Each objShape In objMailDocument.InlineShapes objShape.Range.Paragraphs(1).Range.Editors.Add wdEditorEveryone Next 'Select all the inserted tables For Each objTable In objMailDocument.Tables objTable.Range.Editors.Add wdEditorEveryone Next objMailDocument.SelectAllEditableRanges wdEditorEveryone objMailDocument.DeleteAllEditableRanges wdEditorEveryone End Sub
- After that, you can run this macro, Just tap on the “F5” key button or click the “Run” icon in the toolbar.
- Later, close or minimize the VBA editor window.
- When you get back to the source email, you’ll see that all the inserted objects have been selected. Now you can do any operations on them at will.
Back up Outlook Data File on a Regular Basis
Nowadays, Outlook has earned a lot of kudos due to its diverse features. However, it does not mean that Outlook is flawless. It is still vulnerable to multiple factors, such as improper closing Outlook, virus infection, PST file structure damage and so on. Therefore, so as to block valuable Outlook data from vanishing into air, you have to make a regular backup for your Outlook data file. As long as you keep a consistent and up-to-date Outlook data backup, even though Outlook data file is damaged, you can recover PST data from backups with effortless ease. If there is not the backup, you have to perform data recovery, which is much more difficult. You need to resort to a third party tool, 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 corrupted sql and outlook repair software products. For more information visit www.datanumen.com