Example VBA code: feel free to use :)
Sub InsertHyperlinkAtCursorPositon()
On Error GoTo finish
strLink = "insert actual link here"
strLinkText = "text description of the link"
Set objInsp = Application.ActiveInspector
Set objMsg = objInsp.CurrentItem
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Windows(1).Selection
If objMsg.BodyFormat <> olFormatPlain Then
objDoc.Hyperlinks.Add objSel.Range, strLink, _
"", "", strLinkText, ""
Else
objSel.InsertAfter strLink
End If
finish:
End Sub
The current design is to make sure that user can find the links to attachments easily by putting them at the top of the email similar to the actual attachments. This is an enhancement request. We will create an AHA idea and review the priority.