VBA text to display hyperlink in Outlook email

[Sven62]

My macro will create an email to defined addresses. I want the words "RESPONSE column" to be hyperlinked to the document address

https://my.sharepoint.com/❌/r/personal/_layouts

..... etc etc . How do I do that? TIA!!!

Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "The RESPONSE column of the Employee Onboarding worksheet was modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "." & vbNewLine & vbNewLine & "You're up, slugger!"

 

[Sven62]

Yes but I get the Expected End Statement errorView attachment 28743

YES I am now linking the HTML to different words, but same concept.

 

[John_w]

Try this:

Public Sub Create_Email()

    Dim OutApp As Object, OutMail As Object
    Dim HTML As String
   
    HTML = "<p>The <a href='http://www.yourlink.com/page.html'>RESPONSE column</a> of the Employee Onboarding worksheet was modified on " & _
           Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
           " by " & Environ$("username") & ".</p><p>You're up, slugger!</p>"
   
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
   
    On Error Resume Next

    With OutMail
        .To = "email@address.com"
        .CC = ""
        .BCC = ""
        .Subject = "Email subject"
        .HTMLBody = HTML
        .Display
    End With

    On Error GoTo 0
   
End Sub