Insert hyperlink in an e-mail body

Hello everybody. I have an hyperlink saved in a excel (2010) file in cell B125 that carries the whole path where the file is saved and its name (i.e. P\financial management\read-write\FLA\N3319115CCHA090.xlsm\) I am trying to insert (or paste) this hyperlink an an e-mail. I tried this code here below but all I get is the string of the file path but not an hyperlink. Can somebody save me???

Sub gotomail()
'
' gotomail Macro
' Macro recorded 07/09/2015 by Leandro.Fernandez.IT
'

Dim OutApp As Object
Dim OutMail As Object
Dim htmlstrbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

htmlstrbody = Range("b125:B125").Value

On Error Resume Next
With OutMail
.To = Range("A66:A66").Value
.CC = ""
.BCC = ""
.Subject = Range("B123:B123").Value
.body = Range("b125:B125").Value
.Display 'or use .Send
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

this should be what you're looking for; however the reciver needs to have the same P:\ mapped that you do.

Please Login or Register  to view this content.