How to Quickly Select All the Inserted Objects in Your Outlook Email

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.

Quickly Select All the Inserted Objects in Your Outlook Email

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

  1. To start with, launch your Outlook program.
  2. Then, open the source email in the Message window.
  3. Next, get access to Outlook VBA editor. As for how, you can read the article – “How to Run VBA Code in Your Outlook”.
  4. 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”.
  5. 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

VBA Code - Quickly Select All the Inserted Objects in Your Email

  1. After that, you can run this macro, Just tap on the “F5” key button or click the “Run” icon in the toolbar.
  2. Later, close or minimize the VBA editor window.
  3. 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.Selected Objects in Email

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.

Author Introduction:

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

Comments are closed.