title: Embed image not showing on email
body: <p>I have a macro to send some emails, but the embed images goes with a "x" to the recievers.</p>
  
  <p>My email have: anex, body text and the embed images.</p>
  
  <pre><code>Option Explicit
  
  Dim lsave As String
  
  
  Sub Arquivoanex()
  
  Application.DisplayAlerts = False
  
  Dim OutApp As Object
  Dim OutMail As Object
  Dim oEmail As Object
  Dim strBody As String
  
  Dim line As String
  Dim subject As String
  Dim destine As String
  Dim anex As String
  Dim product As String
  Dim unit As String
  Dim retval As String
  Dim anex_name As String
  Dim validation As String
  Dim signature As String
  
  line = 3
  
  product = "x"
  
  Do While product &lt;&gt; ""
  
      Set oEmail = CreateObject("CDO.Message")
  
      product = Sheets("Send_Emails").Range("M" &amp; line)
      unit = Sheets("Send_Emails").Range("N" &amp; line)
      destine = Sheets("Send_Emails").Range("O" &amp; line)
      subject = Sheets("Send_Emails").Range("P" &amp; line)
      anex = Sheets("Send_Emails").Range("Q" &amp; line)
      anex_name = Sheets("Send_Emails").Range("R" &amp; line)
      validation = Sheets("Send_Emails").Range("L" &amp; line)
  
      signature = "\\...\signature.png"
  
      Sheets("Send_Emails").Range("S1") = product
  
      retval = Dir(anex)
  
      If retval = anex_name Then
  
      Else
          GoTo next_anex
      End If
  
      If anex = "" Then
          GoTo next_anex
      End If
  
      Sheets("Send_Emails").Select
      ActiveSheet.Calculate
  
      Select Case product
  
          Case Is = "X"
              Sheets("X").Select
              Range("K3") = unit
              ActiveSheet.Calculate
  
          Case Is = "Y"
              If validation = "Send" Then
                  Sheets("Y").Select
                  Range("K3") = unit
                  ActiveSheet.Calculate
              Else: GoTo next_anex
  
              End If
      End Select
  
      On Error Resume Next
  
      Call lCriarImagem 'Creates the image and give the location
  
      strBody = Sheets("Send_Emails").Range("B9") &amp; "&lt;img src=""cid:TempExportChart.bmp""height=520 width=750&gt;" &amp; "&lt;br/&gt;&lt;br/&gt;TKS! &lt;br/&gt;&lt;br/&gt;&lt;/body&gt;"
  
      MailItem.Attachments.Add FName, 1, 0
  
      With oEmail
  
      .Display
      oEmail.From = "mail_from@mail"
      oEmail.To = "mail_to@mail"
      oEmail.subject = subject
      oEmail.Attachments.Add FName, 1, 0
      oEmail.AddAttachment anex
      oEmail.HTMLBody = strBody &amp; .HTMLBody
  
      oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myserver.server"
      oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/authenticate") = 1
      oEmail.Configuration.Fields.Update
  
      oEmail.Send
  
      End With
  
      On Error GoTo 0
  
      Set OutMail = Nothing
      Set OutApp = Nothing
  
  next_anex:
  
      line = line + 1
  
  Loop
  
  Application.DisplayAlerts = True
  
  End Sub
  </code></pre>
  
  <p>It's posible to fix this problems using this code structure?</p>
  
  <blockquote>
    <p>Obs: This is the code after all the sugestions.</p>
    
    <p>I still facing the problems with the "X" on the email:<a href="https://ibb.co/0hX6Dvf" rel="nofollow noreferrer">https://ibb.co/0hX6Dvf</a> ("The photo cannot be show. Maybe the file cam be moved, renamed or excluded. Verify if the destiny is in the correct location").</p>
  </blockquote>