title: Embedding image in email with VBA
body: <p>The below code embeds the photo but doesn't display because</p>
  <blockquote>
  <p>&quot;The file may have been moved, renamed, or deleted. Verify that the link points to the correct file and location.&quot;</p>
  </blockquote>
  <p>I know the file path is correct.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub mail()
  
  Dim Sig As String
  
  Set myOlApp = CreateObject(&quot;Outlook.Application&quot;)
  
  LR400 = Columns(1).Find(&quot;*&quot;, SearchDirection:=xlPrevious).Row
  
  sPath = Environ(&quot;appdata&quot;) &amp; &quot;\Microsoft\Signatures\Amir Higgs.txt&quot;
  
  For x = 2 To LR400
  
      If Cells(x, 2) &lt;&gt; &quot;no email&quot; Then
  
       emails = Cells(x, 1)
      'TheBody1 = &quot;The Parallon Workforce Team&quot; &amp; vbCrLf &amp; vbCrLf &amp; vbCrLf &amp; _
      &quot;Amir Higgs&quot; &amp; vbCrLf &amp; _
      &quot;Accounts Payable Clerk&quot; &amp; vbCrLf &amp; _
      &quot;Parallon Workforce Solutions&quot; &amp; vbCrLf &amp; _
      &quot;1000 Sawgrass Corporate Pkwy, 6th Floor&quot; &amp; vbCrLf &amp; _
      &quot;Sunrise, FL 33323&quot; &amp; vbCrLf &amp; _
      &quot;P:  954-514-1656&quot; &amp; vbCrLf &amp; _
      &quot;www.parallon.com&quot;
  
      Set myitem = myOlApp.CreateItem(olMailItem)
  
      With myitem
          .SentOnBehalfOfName = &quot;PARA.WFAdjustments@Parallon.com&quot;
          .To = Cells(x, 2)
          .Subject = Cells(x, 3)
          .Body = TheBody1
          '.CC = &quot;&quot;
          .Attachments.Add emails
          .Attachments.Add &quot;C:\Users\JoeSchmo\Pictures\WF Communications.jpg&quot;, olByValue, 0
          .HTMLBody = &quot;&lt;BODY&gt;&lt;IMG src=&quot;&quot;cid:WF Communications.jpg&quot;&quot; width=200&gt; &lt;/BODY&gt;&quot;
  
          .display
  
      End With
  
  End If
  
  Next x
  
  Set OutMail = Nothing
  Set OutApp = Nothing
  
  End Sub
  </code></pre>