title: VBA Outlook Body Data modification with Default Signature
body: <p>I am trying to write some code which needs to have specific data while still retaining the Default signature as it is.</p>
  
  <p>For example if i use the function .Body will replace then entire contents of the e-mail with the Body text.</p>
  
  <pre><code>Sub ListView41_DblClick()
  
  Dim strName     As String
  Dim strEmail    As String
  Dim strEmail1   As String
  Dim OutApp      As Object
  Dim OutMail     As Object
  Dim Singlepart  As String
  Dim SigString   As String
  Dim Signature   As String
  Dim strbody As String
  Dim SigFilename
  
  strName = ListView41.SelectedItem.Text
  strEmail = ListView41.SelectedItem.ListSubItems(1).Text
  strEmail1 = ListView41.SelectedItem.ListSubItems(2).Text
  
  check = MsgBox("Send e-mail, To : " &amp; strName &amp; " - " &amp; strEmail &amp; "?" &amp; vbNewLine &amp; _
  "CC : " &amp; strEmail1, vbYesNo)
  
  'UserForm1.Show
  
  If check &lt;&gt; vbYes Then Exit Sub
  
  Singlepart = MsgBox("For Single Part or Multiple Parts ? " &amp; vbNewLine &amp; vbNewLine &amp; _
  "Single Part = Yes" &amp; vbNewLine &amp; _
  "Multiple Parts = No", vbYesNo)
  
  If Singlepart = vbYes Then
  
  ' For Single Part Numbers
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
      strbody = "&lt;H3&gt;&lt;B&gt;Dear Customer Ron de Bruin&lt;/B&gt;&lt;/H3&gt;" &amp; _
                "Please visit this website to download the new version.&lt;br&gt;" &amp; _
                "Let me know if you have problems.&lt;br&gt;" &amp; _
                "&lt;A HREF=""http://www.rondebruin.nl/tips.htm""&gt;Ron's Excel Page&lt;/A&gt;" &amp; _
                "&lt;br&gt;&lt;br&gt;&lt;B&gt;Thank you&lt;/B&gt;"
  
  'Signature of User
  SigString = Environ("appdata") &amp; _
                  "\Microsoft\Signatures\Rohith UTAS.htm"
  
      If Dir(SigString) &lt;&gt; "" Then
          Signature = GetBoiler(SigString)
      Else
          Signature = ""
      End If
  
      On Error Resume Next
  
  
  Userform1.Show
  
  
  'With Outlook
           With OutMail
              .Display
              .To = strEmail
              .CC = strEmail1
              .BCC = ""
              .Subject = strName &amp; "_Request for Product Information"
              .HTMLBody = strbody &amp; vbNewLine &amp; Signature
              .Display 'or .Display if you want the user to view e-mail and send it manually
          End With
  
  Else
  
  ' For Multiple Part Numbers
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  'Signature of User
  SigString = Environ("appdata") &amp; _
                  "\Microsoft\Signatures\Rohith UTAS.htm"
  
      If Dir(SigString) &lt;&gt; "" Then
          Signature = GetBoiler(SigString)
      Else
          Signature = ""
      End If
  
      On Error Resume Next
  
  'With Outlook
          With OutMail
              .To = strEmail
              .CC = strEmail1
              .BCC = ""
              .Subject = strName &amp; "_Request for Product Information"
              .HTMLBody = "&lt;br&gt;" &amp; _
                          "Hi," &amp; "&lt;br&gt;" &amp; "&lt;br&gt;" &amp; _
                          "Can you please provide me the Lifecycle and Years of Availability for the below listed parts?" &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; _
                          "The list of parts are : " &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; "&lt;br /&gt;" &amp; Signature
              .Display 'or .Display if you want the user to view e-mail and send it manually
          End With
  
  End If
  Set OutMail = Nothing
  Set OutApp = Nothing
  
  End Sub
  </code></pre>