title: How to add a signature in Excel VBA email?
body: <p>I use this VBA code to send an email when a user clicks a cell in a row.</p>
  
  <p>I want to add a signature, with an image, to my email body. How could I amend my code to put this in?</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  If Target.Column = Range("BL1").Column Then
  
       If Target.Row &gt; 7 And Target.Value = "Take Action" Then
  
           Set OutApp = CreateObject("Outlook.Application")
           Set OutMail = OutApp.CreateItem(0)
  
           strbody = "&lt;p style='font-family:calibri;font-size:16'&gt;" &amp; "Dear Sirs," &amp; "&lt;br&gt;&lt;br&gt;" &amp; vbNewLine &amp; vbNewLine &amp; _
                "F.A.O: " &amp; "&lt;b&gt;" &amp; Range("B" &amp; ActiveCell.Row) &amp; "&lt;/b&gt;" &amp; "," &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;br&gt;" &amp; "This is an urgent update on the status of your account." &amp; "&lt;br&gt;" &amp; vbNewLine &amp; _
                "Our records show that your insurance is due to expire on: " &amp; "&lt;b&gt;" &amp; Format(Range("BE" &amp; ActiveCell.Row), "dd" &amp; " Mmmm " &amp; "yyyy") &amp; "." &amp; "&lt;/b&gt;" &amp; " To ensure that you remain active on our systems as an approved Hewden Stuart Ltd Supplier, it is important that you provide us with the details of your renewed insurance policy. Please can you provide us with these details for the following insurance as soon as possible, in order to remain active on our systems:" &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;br&gt;&lt;br&gt;" &amp; "Insurance: " &amp; "&lt;b&gt;" &amp; "{Insurance Type Goes Here}" &amp; "&lt;/b&gt;" &amp; "&lt;br&gt;" &amp; vbNewLine &amp; _
                "Due for Period: " &amp; "&lt;b&gt;" &amp; Format(Range("BE" &amp; ActiveCell.Row), "dd" &amp; " Mmmm " &amp; "yyyy") &amp; "&lt;/b&gt;" &amp; " - " &amp; "&lt;b&gt;" &amp; Format(Range("BE" &amp; ActiveCell.Row) + 365, "dd" &amp; " Mmmm " &amp; "yyyy") &amp; "&lt;/b&gt;" &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;br&gt;&lt;br&gt;" &amp; "Note:" &amp; "&lt;br&gt;" &amp; vbNewLine &amp; _
                "Please ensure that the above information is provided by your insurance broker, or your insurer, in the form of a standard letter or certificate. If your insurance is in the name of a parent company, please provide a breakdown of the companies covered from your insurer. In order to provide us with the above information, please login to your Control Panel with your unique Username and Password and attach your documents. Regrettably, failure to provide us with the information requested will result in suspension of your account. If you have any queries, please email us at SupplierAudits@Hewden.co.uk." &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;br&gt;&lt;br&gt;" &amp; "Your Reference:" &amp; "&lt;br&gt;&lt;br&gt;" &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;b&gt;" &amp; Range("AB" &amp; ActiveCell.Row) &amp; "&lt;/b&gt;" &amp; vbNewLine &amp; _
                "&lt;p style='font-family:calibri;font-size:13'&gt;" &amp; "Please quote your unique Supplier Reference number when providing us with any insurance documents and in the even that you should have any enquiries." &amp; "&lt;/p&gt;" &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;p style='font-family:calibri;font-size:16'&gt;" &amp; "&lt;br&gt;" &amp; "Kind Regards," &amp; "&lt;br&gt;&lt;br&gt;" &amp; vbNewLine &amp; vbNewLine &amp; _
                "&lt;b&gt;" &amp; "Hewden Supply Chain Department" &amp; "&lt;/b&gt;" &amp; "&lt;/P&gt;"
  
          With OutMail
              .SentOnBehalfOfName = "newsuppliers@hewden.co.uk"
              .To = "mark.o'brien@hewden.co.uk"
              .CC = ""
              .BCC = ""
              .Subject = "Important! - Insurance Alert!"
              .HTMLbody = strbody
              .Attachments.Add ("P:\cover.jpg")
              .Send   'or use .Display
          End With
  
      End If
  
  End If
  
  End Sub
  </code></pre>