How to Quickly Copy All Tables from One Email to Another in Outlook

In Outlook, when you need to extract and copy all tables from one email to another, it’s undoubtedly tedious and cumbersome to do it manually. This article will share a much smarter way with you.

At times, you may desire to create a new email containing the tables of another email. If there is only one table in the email, it is very easy. However, if there are multiple tables in the source email, manually copying is too tedious. So, in the followings, we’ll introduce another way that is far more effective and intelligent.

Copy All Tables from One Email to Another

1. For a start, you should access your Outlook as normal.
2. Then, in the main Outlook window, you could press “Alt + F11” shortcut keys.
3. Subsequently, in the popup “Microsoft Visual Basic for Applications” window, you need to open an unused module or simply insert a new one.
4. Next, you could copy the following VBA code into this module.

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. After that, you can exit the current VBA editor window.
6. Later you ought to change your Outlook macro settings to enable all macros.
7. Also, you are better off adding this macro to Quick Access Toolbar, which can be accomplished in “Outlook Options”.
8. Finally you can have a try:

• At the very outset, open or select an email whose tables to be copied.
• Then, hit the newly added macro button in Quick Access Toolbar.
• After the macro finishes running, a new email will show up, in which the tables of source email have been pasted.

Defend Outlook File against Corruption

Although Outlook can play a good role no matter as a standalone email client or a private schedule manager, it still cannot be immune from errors and corruptions. Therefore, it is undoubtedly an arduous and tedious task to protect your Outlook data. You have to keep tabs on your daily behaviors in Outlook, such as don’t click suspicious links, download unsafe attachments or close Outlook improperly and so on. Of course, it is necessary for you to keep a stellar repair tool nearby, such as DataNumen Outlook Repair in that it can repair Outlook troubles like a breeze.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf repair and outlook repair software products. For more information visit www.datanumen.com