title: Reply to an email with "First Name Last Name", not with "Last Name, First Name", with a particular font
body: <p>I am trying to reply to an email in an organisation, using my own font and color with some minor changes to the codes available on <a href="https://www.extendoffice.com/fi/documents/outlook/5417-outlook-dear-first-name.html" rel="nofollow noreferrer">https://www.extendoffice.com/fi/documents/outlook/5417-outlook-dear-first-name.html</a></p>
  
  <pre class="lang-vb prettyprint-override"><code>Public WithEvents GExplorer As Outlook.Explorer
  Public WithEvents GMailItem As Outlook.MailItem
  
  Private Sub Application_Startup()
      Set GExplorer = Outlook.Application.ActiveExplorer
  End Sub
  
  Private Sub GExplorer_SelectionChange()
      Dim xItem As Object
      On Error Resume Next
      Set xItem = GExplorer.Selection.Item(1)
      If xItem.Class &lt;&gt; olMail Then Exit Sub
      Set GMailItem = xItem
  End Sub
  
  Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
      AutoAddGreetingToReply Response
  End Sub
  
  Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
      AutoAddGreetingToReply Response
  End Sub
  
  Sub AutoAddGreetingToReply(Item As Object)
      Dim xGreetStr As String
      Dim xReplyMail As MailItem
      Dim xSenderName As String
      Dim xRecipient As Recipient
      On Error Resume Next
      If Item.Class &lt;&gt; olMail Then Exit Sub
      Set xReplyMail = Item
      For Each xRecipient In xReplyMail.Recipients
          If xSenderName = "" Then
              xSenderName = xRecipient.Name
          Else
              xSenderName = xSenderName &amp; "," &amp; xRecipient.Name
          End If
      Next xRecipient
      Select Case Time
             Case 0.3 To 0.5
                  xGreetStr = " Good morning, thank you for your email."
             Case 0.5 To 0.75
                  xGreetStr = " Good afternoon, thank you for your email."
             Case Else
                  xGreetStr = " Good evening, thank you for your email."
      End Select
      With xReplyMail
          .Display
          .HTMLBody = "&lt;HTML&gt;&lt;Body&gt;Dear " &amp; xSenderName &amp; ",&lt;/HTML&gt;&lt;/Body&gt;" &amp; xGreetStr &amp; .HTMLBody
      End With
  End Sub
  </code></pre>
  
  <p>I receive the following. The code is copying the exact layout of the person who emailed me. </p>
  
  <p><a href="https://i.stack.imgur.com/sxxek.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/sxxek.jpg" alt="enter image description here"></a></p>
  
  <p>I want to amend this code to have something like</p>
  
  <p><a href="https://i.stack.imgur.com/Da6PS.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Da6PS.jpg" alt="enter image description here"></a></p>
  
  <p>Furthermore, when I run this code I can not use ctrl-z to undo.</p>