Use the following code as a basis for creating e-mail messages with hyperlinks. It doesn't require a reference to Outlook as it uses Late Binding, but it does require the function from the link at the top of the code.
Option Explicit
Sub AddHyperlink()
'Graham Mayor - https://www.gmayor.com - Last updated - 27 May 2019
'Use the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to start Outlook or the code below doesn't work
Dim olApp As Object
Dim olEmail As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
Dim oLink As Object
Dim strLink As String
Dim strLinkText As String
'The texts before and after the link
Const strText1 As String = "If you wish to download or view our latest catalogue, please simply follow this link: " & vbCr & vbCr
Const strText2 As String = vbCr & vbCr & "Should you wish to review or enquire about any of our products, please do not hesitate to get in touch."
Set olApp = OutlookApp()
strLink = "http://www.gmayor.com" ' the link address
strLinkText = "Click here for Graham Mayor's Web Site " ' the link display text
On Error Resume Next
Set olEmail = olApp.CreateItem(0)
With olEmail
.To = "someone@somewhere.com"
.Subject = "This is the subject"
.BodyFormat = 2
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range(0, 0)
oRng.Text = strText1
oRng.collapse 0
Set oLink = wdDoc.Hyperlinks.Add(Anchor:=oRng, _
Address:=strLink, _
SubAddress:="", _
ScreenTip:="", _
TextToDisplay:=strLinkText)
Set oRng = oLink.Range
oRng.collapse 0
oRng.Text = strText2
.Display 'Required
'.Send 'Enable after testing
End With
lbl_Exit:
Set olApp = Nothing
Set olInsp = Nothing
Set olEmail = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Exit Sub
End Sub