title: Copy Excel Range (Formatting and Values) and paste into the body of new outlook message
body: <p>So I am trying to get this to copy a range from another section listed as a variable 'Temp' so how do I get VBA to copy the range Temp in excel and paste the formatting and values into outlook body?</p>
  
  <pre><code>Sub OutlookMessage()
  Dim OutApp
  Dim objOutlookMsg
  Dim objOutlookRecip
  Dim Recipients
  Dim SubjLine As String
  Dim MonSubjLine As String
  Dim ws As Worksheet
  Dim sndRange As Range
  Dim Sunday
  Dim Monday
  Dim Today As Integer
  Set OutApp = CreateObject("Outlook.Application")
  Set objOutlookMsg = OutApp.CreateItem(olMailItem)
  Set Recipients = objOutlookMsg.Recipients
  Set objOutlookRecip = Recipients.Add("Recipient")
  objOutlookRecip.Type = 1
      objOutlookMsg.SentOnBehalfOfName = "Sender"
                  Today = Weekday(Date, vbMonday)
                      If Today = 1 Then
                          Sunday = Date - 1
                          Monday = Date - 7
                      End If
          MonSubjLine = "WEEK " &amp; (DatePart("ww", Date, vbMonday) - 1) &amp; " - PHONE REPORT (" &amp; Monday &amp; " Th " &amp; Sunday &amp; ")"
          SubjLine = StrConv(WeekdayName(Weekday(Date - 1, vbMonday), False, vbMonday), vbUpperCase) &amp; " (" &amp; Date - 1 &amp; ") PHONE REPORT"
          Today = Weekday(Date, vbMonday)
              If Today &gt; 1 Then
                  objOutlookMsg.Subject = SubjLine
              ElseIf Today = 1 Then
                  objOutlookMsg.Subject = MonSubjLine
              End If
      objOutlookMsg.HTMLBody = "How to Get My Table In Here?"
  For Each objOutlookRecip In objOutlookMsg.Recipients
  objOutlookRecip.Resolve
  Next
  objOutlookMsg.Display
  Set OutApp = Nothing
  End Sub
  </code></pre>
  
  <p>I ended up just using this to paste it</p>
  
  <pre><code>SendKeys "^({v})", True
  </code></pre>