title: Pasting Chart into Outlook Email from Excel
body: <p>Tried all other codes on similar pages but failed to work. </p>
  
  <p>This is my current version. Works only if I currently have a new email window open and oddly, my code will paste the .body and cell range details into 2 separate new email windows.</p>
  
  <p>I just want the code to open a new email window with contents .body and cell range details (contains chart). Anybody have any ideas where my code went wrong?</p>
  
  <pre><code>Sub pasting01()
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  With OutMail
  .TO = "xyz@anc.com"
  .CC = "abc@xyz.com"
  .Subject = "Test"
  .Body = "Dear Mr Lee" &amp; vbNewLine
  
  ActiveSheet.Range("A1:J30").Copy
  Set vInspector = OutMail.GetInspector
  Set wEditor = vInspector.WordEditor
  
  wEditor.Application.Selection.Start = Len(.Body)
  wEditor.Application.Selection.End = wEditor.Application.Selection.Start
  
  wEditor.Application.Selection.Paste
  
  .display
  
  End With
  
  On Error GoTo 0
  
  Set OutMail = Nothing
  Set OutApp = Nothing
  
  End Sub
  </code></pre>