Hi everybody,

I have a code that works very well to insert some text in Outlook. Recently, I have tried to modify it slightly in order to insert a hyperlink, using these tags: <> but it doesn't work - it insert the link as text, not as a clickable hyperlink. I'm unsure what the syntax should be?

I have also found some code to insert a link at the cursor position, and tried to modify it to insert text before and after the link, but it only insert text after the link

I would appreciate your help

Thank you!

Sarah

PS: in the code below the bit that says "website link here" is actually a www address but I had to change this as otherwise I couldn't post this thread 

Sub InsertText()

Const sText As String = "If you wish to download or view our latest catalogue, please simply follow this link: " & vbNewLine & _
"Click <a href=""website link here"">here</a>" & vbNewLine & _
"Should you wish to review or enquire about any of our products, please do not hesitate to get in touch." & vbNewLine

On Error GoTo ErrHandler
If TypeName(ActiveWindow) = "Inspector" Then
    If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
        ActiveInspector.WordEditor.Application.Selection.TypeText sText
    End If
End If
Exit Sub
ErrHandler:
Beep

End Sub