title: VBA - Copy Cell from Sheet into Outlook email
body: <p>I am new to VBA and have created the following code that sends an email. 
  My question is how do i copy some cells from my excel sheet that I am currently using to be pasted inside the excel file? </p>
  
  <p>Thanks,</p>
  
  <pre><code> Sub CIR_Save_Email()
  
   Dim objoutlook As Object
   Set objoutlook = CreateObject("outlook.application")
  
   Dim objemail As Object
   Set objemail = objoutlook.createitem(olmailitem)
   Const olFormatHTML As Long = 2
  
   emailbodymessage = "&lt;HTML&gt;&lt;BODY&gt;Hi Team," &amp; _
   "&lt;br&gt;&lt;br&gt;Attached is the Display's CIR for today&lt;br&gt;&lt;br&gt;" &amp; _
   "&lt;b&gt;Brief overview of CIR&lt;/b&gt;&lt;br&gt;&lt;br&gt;" &amp; _
   "&lt;b&gt;Purpose:&lt;/b&gt; To get a snapshot of what your current inventory levels by SKU are every day." &amp; _
   "&lt;ul style=""list-style-type:circle""&gt;" &amp; _
     "&lt;li&gt;&lt;b&gt;Unrestricted QTY&lt;/b&gt; The total inventory at that DC (i.e.Deliveries Created + Available Qty)&lt;/li&gt;" &amp; _
    "&lt;li&gt;&lt;b&gt;Deliveries Created:&lt;/b&gt; Orders that are being processing at that DC (i.e. they will NOT be included in Available Inventory)&lt;/li&gt;" &amp; _
     "&lt;li&gt;&lt;b&gt;Available:&lt;/b&gt; How many cases are available to use at that DC &lt;/li&gt;" &amp; _
     "&lt;li&gt;&lt;b&gt;Avail DOS:&lt;/b&gt; How many DOS the available cases equate to&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;IT QTY:&lt;/b&gt; How man cases are in transit&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;Avail +IT DOS:&lt;/b&gt; How many DOS the available cases equate to&lt;/li&gt;" &amp; _
   "&lt;/ul&gt; &lt;/body&gt; &lt;/html&gt;"
  
   emailbodymessage2 = "&lt;html&gt;&lt;body&gt;&lt;ul style=""list-style-type:circle""&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;Future Available:&lt;/b&gt; The total DOS of cases Avail + IT&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;QI QTY:&lt;/b&gt; How many cases are on Qualitiy (ie Non-Conformance)&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;Blocked QTY:&lt;/b&gt; How many cases are blocked from ordering due to damages, short dating, expired, etc." &amp; _
  "&lt;li&gt;&lt;b&gt;CM- months:&lt;/b&gt; The forecasts of the months past (CM-1=July)&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;% to Fcst:&lt;/b&gt; How much of your projected forecast has shipped this month&lt;/li&gt;" &amp; _
   "&lt;li&gt;&lt;b&gt;Current SNAP Fcst:&lt;/b&gt; This month's projected forecast&lt;/li&gt;" &amp; _
  "&lt;li&gt;&lt;b&gt;CM+ months:&lt;/b&gt; The forecasts of the months moving forward (CM+1= September)&lt;/li&gt;" &amp; _
   "&lt;/ul&gt; &lt;/body&gt;&lt;/html&gt;"
  
   With objemail
       .To = emaillist
         .cc = ""
       .Subject = "Display's CIR " &amp; Date
       .BodyFormat = olFormatHTML '// 2
   .HTMLBody = emailbodymessage &amp; emailbodymessage2 
  
   .display
  
   End With
  
   End Sub
  </code></pre>