title: Paste Table Copied From Website into Body of Outlook Email Using VBA
body: <p>I have this code that creates an email, fills in the to, cc, subject fields; and I want it to text the table that I manually copied from the Internet.  So basically I want it to do a ctrl-v in the body of the email.  I have tried the doclipboard.GetText method and a few other methods.  This is the most recent try.</p>
  <pre><code>Sub SendEmail(ByVal strSubject As String, ByVal strBody As String, ByVal blnDisplay As Boolean, ByVal blnAddPaste As Boolean)
  
      Dim bStarted As Boolean
      Dim oOutlookApp As Outlook.Application
      Dim oItem As Outlook.MailItem
  
      On Error Resume Next
  
      'Get Outlook if it's running
      Set oOutlookApp = GetObject(, &quot;Outlook.Application&quot;)
      If Err &lt;&gt; 0 Then
          'Outlook wasn't running, start it from code
          Set oOutlookApp = CreateObject(&quot;Outlook.Application&quot;)
          bStarted = True
      End If
  
      'Create a new mailitem
      Set oItem = oOutlookApp.CreateItem(olMailItem)
  
      With oItem
          'Set the recipient for the new email
          .To = &quot;Email Addresses&quot;
          'Set the recipient for a copy
          '.CC = strCC
          'Set the subject
          .Subject = &quot;Salesforce &quot; &amp; EmailDateFormat &amp; &quot; &quot; &amp; strSubject
          'The content of the document is used as the body for the email
          If blnAddPaste Then
              .HTMLBody = strBody &amp; &quot;&lt;br&gt;&lt;br&gt;&quot; &amp; _ 
                Selection.PasteAndFormat(Word.WdRecoveryType.wdTableOriginalFormatting) ' this is what I need to fix
          Else
              .HTMLBody = strBody
          End If
          
          
          If blnDisplay Then
              .Display
          Else
              .Send
          End If
      End With
  
      If bStarted Then
          'If we started Outlook from code, then close it
          oOutlookApp.Quit
      End If
  
      'Clean up
      Set oItem = Nothing
      Set oOutlookApp = Nothing
  
  End Sub
  </code></pre>
  <p>How do I get a table to paste inside of the outlook email?</p>