title: Send Email via MailEnvelope
body: <p>I want to copy a specific range into mail (with images).</p>
  
  <pre><code>Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope()
  'Working in Excel 2002-2016
  Dim AWorksheet As Worksheet
  Dim Sendrng As Range
  Dim rng As Range
  
  On Error GoTo StopMacro
  
  With Application
      .ScreenUpdating = False
      .EnableEvents = False
  End With
  
  'Fill in the Worksheet/range you want to mail
  'Note: if you use one cell it will send the whole worksheet
  Set Sendrng = Worksheets("EMAIL").Range("B2:W41")
  
  'Remember the activesheet
  Set AWorksheet = ActiveSheet
  
  With Sendrng
  
      ' Select the worksheet with the range you want to send
      .Parent.Select
  
      'Remember the ActiveCell on that worksheet
      Set rng = ActiveCell
  
      'Select the range you want to mail
      .Select
  
      ' Create the mail and send it
      ActiveWorkbook.EnvelopeVisible = True
      With .Parent.MailEnvelope
  
          ' Set the optional introduction field thats adds
          ' some header text to the email body.
          .Introduction = "This is test mail 2."
  
          With .Item
              .To = ThisWorkbook.Sheets("EMAIL").Range("Z1").Value
              .CC = ThisWorkbook.Sheets("EMAIL").Range("Z1").Value
              .BCC = ""
              .Subject = ThisWorkbook.Sheets("EMAIL").Range("D1").Value
              .Display
          End With
  
      End With
  
      'select the original ActiveCell
      rng.Select
  End With
  
  'Activate the sheet that was active before you run the macro
  AWorksheet.Select
  
  StopMacro:
  With Application
      .ScreenUpdating = True
      .EnableEvents = True
  End With
  ActiveWorkbook.EnvelopeVisible = False
  
  End Sub
  </code></pre>
  
  <p>Why does MailEnvelope show for one second and nothing happen afterwards?</p>
  
  <p>I replaced <code>.Send</code> with <code>.Display</code> but nothing changed. Alternatively I tried to use the RNGtoHTML code but this code does not copy images (I have dynamic linked picture in the sheet "EMAIL"). </p>