If you need to extract all email addresses appearing in all tables of an email, you can use the method shown in this article. It can let you get it in a jiffy.
You receive an email, which contains a lot of email addresses in its message body. Some of the email addresses are in the tables, but some are in the textual body. At times, you may only want to extract the email addresses from the tables. Usually, in standard means, you have to manually copy to extract the email addresses. But, it will be quite cumbersome if there are too many tables in this email. Therefore, in the followings, we will share you an approach, which can let you get it in bulk.
Quickly Extract the Email Addresses from the Tables in Email
- At the very outset, launch Outlook application.
- Then, press “Alt + F11” to trigger VBA editor.
- Next, add reference to “MS Word Object Library” by reading “How to Add an Object Library Reference in VBA“.
- Then, copy the following code into an unused module.
Sub ExtractEmailAddressesFromAllTables() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim strEmailAddresses As String Dim objNewMail As Outlook.MailItem Dim objNewMailDocument As Word.Document 'Get the mail Select Case Outlook.Application.ActiveWindow.Class Case olInspector Set objMail = ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) End Select Set objMailDocument = objMail.GetInspector.WordEditor 'Find all email addresses via wildcards With objMailDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}" .MatchWildcards = True .Forward = True .Wrap = wdFindStop .Execute End With 'Get the email addresses in table Do Until .Find.Found = False If .Information(wdWithInTable) = True Then strEmailAddresses = .Cells(1).Range.Text & strEmailAddresses End If .Collapse wdCollapseEnd .Find.Execute Loop End With 'Input the extracted email addresses from all tables into a new mail Set objNewMail = Outlook.CreateItem(olMailItem) With objNewMail .Body = strEmailAddresses .Display With .GetInspector.WordEditor.Application.Selection .WholeStory .Range.Font.Size = 12 End With End With End Sub
- Later exit the current window.
- Subsequently, follow the “Optional Step” in “How to Run VBA Code in Your Outlook” to add this macro to Quick Access Toolbar or ribbon.
- Finally, you can have a try.
- First, select or open an email.
- Then, run this macro by clicking the newly added button in Quick Access Toolbar or ribbon.
- At once, a new email will show up, which contains all the extracted email addresses in its message body, like the following screenshot.
Recover from Outlook Crashes
From time to time, Outlook can crash unexpectedly. At the best, nothing bad will happen. A simple restart can restore it. However, at the worst, you will encounter serious Outlook corruption. At that time, you need to fix Outlook file. You can use the inbox repair tool to have a try. If it fails, then you can resort to a more potent external 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 SQL Server recovery and outlook repair software products. For more information visit www.datanumen.com
please click the next site