Email Hyperlink Issue

[motherteresa]

I have searched, but just can't get this figured out. Any help would be SO appreciated.

I have this code in a sheet. The code is activated by clicking on a button. It all looks great, but I want my email address to be a hyperlink. I've read several solutions, but can't seem to get it right.

Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
     
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     
    On Error Resume Next
    With OutMail
        .To = "someone@whatever.com"
        .cc = ""
        .BCC = ""
        .Subject = "Try Me " & Format(Date, "dd/mmm/yy")
        .HTMLBody = "NAME" & vbCrLf & vbCrLf & "Hope your are doing well. Athletic interviews are due and I'd like you to come in on (DAY), (MONTH) (DATE).  The session should take about an hour.  As the day gets closer, I will call and confirm our appointment." & vbCrLf & vbCrLf & "Please reply as soon as you are able to let me know if this will work for your schedule." & vbCrLf & vbCrLf & "Thank You," & vbCrLf & "Teresa Silverman" & vbCrLf & "Athletic Director - Heritage Academy." & vbCrLf & "motherteresa@bellsouth.net>" & vbCrLf & "555-666-7777"
        .Display 'or use .Send
    End With
    On Error GoTo 0
     
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Thank you for any suggestions!!

 

[bensonsearch]

seeing as its HTML body use

mailto:email@email.com.au[/EMAIL]