title: Excel VBA URL hyperlink in RichText email body
body: <p>Does anyone know how to create a RichText email body, that has a URL bookmark in it?</p>
  
  <p>For example, here is my code:</p>
  
  <pre><code>Sub SendEmailUsingWord()
  
  Dim olApp As Outlook.Application
  Dim olEmail As Outlook.MailItem
  Dim olInsp As Outlook.Inspector
  Dim wdDoc As Word.Document
  Dim strBody As String
  
  ' The body of the message, want to create a hyperlink to (e.g.) http://www.google.com but
  ' still display HERE.
  ' In HTML it would be &lt;a href="http://www.google.com"&gt;HERE&lt;/a&gt;
  ' But I want to achieve this in a Rich Text email
  
  strBody = "Please click HERE to be fantastic!" &amp; vbNewLine
  
  Set olApp = New Outlook.Application
  Set olEmail = olApp.CreateItem(olMailItem)
  
  With olEmail
      .BodyFormat = olFormatRichText
      .Display
  
      .To = "someone@someone.com"
      .Subject = "Email Subject"
  
      Set olInsp = .GetInspector
      Set wdDoc = olInsp.WordEditor
  
      wdDoc.Range.InsertBefore strBody
      '.send
  End With
  End Sub
  </code></pre>
  
  <p>Many thanks for your help :)
  Dave</p>