title: Pasting formatted Excel range into Outlook message
body: <p>I would like to paste a range of formatted Excel cells into an Outlook message.</p>
  
  <p>The following code (that I lifted from various sources), runs without error and sends an empty message.</p>
  
  <pre><code>Sub SendMessage(SubjectText As String, Importance As OlImportance)
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient
  Dim objOutlookAttach As Outlook.Attachment
  Dim iAddr As Integer, Col As Integer, SendLink As Boolean
  'Dim Doc As Word.Document, wdRn As Word.Range
  Dim Doc As Object, wdRn As Object
  
  ' Create the Outlook session.
  Set objOutlook = CreateObject("Outlook.Application")
  ' Create the message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  
  Set Doc = objOutlookMsg.GetInspector.WordEditor
  'Set Doc = objOutlookMsg.ActiveInspector.WordEditor
  Set wdRn = Doc.Range
  wdRn.Paste
  
  Set objOutlookRecip = objOutlookMsg.Recipients.Add("MyAddress@MyDomain.com")
  objOutlookRecip.Type = 1
  objOutlookMsg.Subject = SubjectText
  objOutlookMsg.Importance = Importance
  
  With objOutlookMsg
      For Each objOutlookRecip In .Recipients
          objOutlookRecip.Resolve
          ' Set the Subject, Body, and Importance of the message.
          '.Subject = "Coverage Requests"
          'objDrafts.GetFromClipboard
      Next
      .Send
  End With
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing
  End Sub
  </code></pre>