title: Adding a default signature to outlook email VBA
body: <p>I am trying to get my default signature and apply it to an email that I have being set up with a user form. I tried a few options including this one: <a href="https://stackoverflow.com/questions/8994116/how-to-add-default-signature-in-outlook">How to add default signature in Outlook</a></p>
  
  <p>but it doesn't seem to work...</p>
  
  <pre><code>Private Sub addUpdate_Click()
   Dim mailObj As MailItem
   Dim mailBody, signature As String
   Dim oMail, oApp As Object
  
  newUser.Hide
  
  Set oApp = CreateObject("Outlook.Application")
  Set oMail = oApp.CreateItem(0)
  
  With oMail
      .Display
  End With
  signature = oMail.body
  
  Set mailObj = CreateItem(olMailItem)
  
  mailBody = "&lt;HTML&gt;&lt;BODY&gt;&lt;P&gt;Hi " &amp; firstName.Value &amp; ",&lt;/P&gt;" _
              &amp; "&lt;P&gt;Thank you for your interest in the &lt;STRONG&gt;Metropolitan Sales&lt;/STRONG&gt; website.&lt;/P&gt;" _
              &amp; "&lt;P&gt;Some of the features of the website include:&lt;/P&gt;" _
              &amp; "&lt;UL&gt;&lt;LI&gt;Placing Orders&lt;/LI&gt;&lt;LI&gt;Order status &amp; tracking&lt;/LI&gt;&lt;LI&gt;Detailed product information&lt;/LI&gt;" _
              &amp; "&lt;LI&gt;Specification sheets in PDF for all products&lt;/LI&gt;&lt;/UL&gt;" _
              &amp; "&lt;P&gt;These features can be accessed at:&lt;/P&gt;" _
              &amp; "&lt;P&gt;&lt;a href= 'http://www.metsales.com'&gt;www.metsales.com&lt;/a&gt;, then click on Catalog&lt;/p&gt;" _
              &amp; "&lt;p&gt;&lt;strong&gt;Username : &lt;/strong&gt;" &amp; username.Value &amp; "&lt;br&gt;" _
              &amp; "&lt;strong&gt;Password  : &lt;/strong&gt;" &amp; password.Value &amp; "&lt;/p&gt;" _
              &amp; "&lt;p&gt;Feel free to contact me should you have any questions.&lt;/p&gt;&lt;br&gt;" _
              &amp; "&lt;p&gt;Thank you,&lt;/p&gt;" &amp; signature &amp; "&lt;/body&gt;&lt;/html&gt;"
  
  With oMail
      .Recipients.add (email.Value)
      .Subject = "Metropolitan Sales Username and Password"
      .BodyFormat = olFormatHTML
      .HTMLBody = mailBody
      .Send
   End With
   Unload newUser
  End Sub
  </code></pre>