Insert hyperlink into Outlook message without HTML

[sharky12345]

Is it possible to insert a hyperlink with a friendly name in the body of an Outlook message without using HTML?

I have a range of Cells that contain web addresses and I want to be able to add them to the message body but with a friendly name is possible to cut down on the body size. The reason I want to avoid HTML is because the code I already have to create the message is quite large and does not use HTML, so to change it would be a lot of work I think?

If I have to use HTML then so be it, but if I can avoid it that would be my preference.

Further, the code I'm using automatically converts the cell value to a hyperlink, (because it's a https address), but I want to be able to give it a friendly name so if there is a simple way to achieve it then that would be great.

 

[Domenic]

Let's assume that cell A2 contains a hyperlink, maybe something like this...

Sub test()    

    Dim olApp As Object
    Dim olMailItem As Object
    
    Set olApp = CreateObject("Outlook.Application")
    Set olMailItem = olApp.CreateItem(0)
    
    Range("A2").Copy
    With olMailItem
        .Display
        .to = "john.smith@gmail.com"
        .Subject = "Misc"
        .body = "This is the body of the email..."
        With .GetInspector.WordEditor
            .Application.Selection.EndKey Unit:=6 '6 = wdStory
            .Application.Selection.TypeParagraph
            .Application.Selection.Paste
            .Hyperlinks(.Hyperlinks.Count).TextToDisplay = "Friendly Name"
        End With
    End With
    
    Set olApp = Nothing
    Set olMailItem = Nothing
    
End Sub