i want to make the two lines hyberlinks

$objSelection.TypeText("E-mail:mail@@mail.dk")
$objSelection.TypeText("www.myhomepage.dk")

can anyone help me
i have tryed reading this http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1447566&SiteID=1 but i cant seem to get i working

 Code:
 ; COPY OUTLOOK SIGNATURE

$objSysInfo = CreateObject("ADSystemInfo")
$strUser 	= $objSysInfo.UserName
$objUser	= GetObject("LDAP://" + $strUser)

$strName 	= $objUser.FullName
$strSN 		= $objUser.sn
$strmobile 	= $objUser.mobile
$strTitle 	= $objUser.Title
$strDepartment 	= $objUser.Department
$strCompany 	= $objUser.Company
$strPhone 	= $objUser.telephoneNumber
$strGivenName 	= $objUser.givenname
$strMail 	= $objUser.mail
$strOffice	= $objuser.Office


$objWord 	= CreateObject("Word.Application")

$objDoc 	= $objWord.Documents.Add()
$objSelection = $objWord.Selection

$objEmailOptions = $objWord.EmailOptions
$objSignatureObject = $objEmailOptions.EmailSignature
$objSignatureEntries = $objSignatureObject.EmailSignatureEntries


$objSelection.Font.name="Arial"
$objSelection.Font.size="8"
$objSelection.Font.Color = "8388608"
$objSelection.TypeText("Med venlig Hilsen,")
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
$objSelection.Font.bold = "1"
$objSelection.TypeText($strGivenName + " " + $strSN)
$objSelection.Font.bold = "0"
$objSelection.Font.name="Arial"
$objSelection.TypeParagraph()
$objSelection.TypeText($strTitle)
$objSelection.TypeParagraph()
$objSelection.TypeText("E-mail: " + $strmail)
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
$objSelection.Font.size="10"
$objSelection.Font.bold = "1"
$objSelection.TypeText($strCompany)
$objSelection.Font.bold = "0"
$objSelection.Font.size="8"
$objSelection.TypeParagraph()
$objSelection.TypeText("xxxxxxxxxxxxx")
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
$objSelection.TypeText("xxxxxxxxxxxxxxxxxx")
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
$objSelection.TypeText("xxxxxxxxxx + $strPhone)
$objSelection.TypeParagraph()
$objSelection.TypeText("Mobil Nummer: " + $strmobile)
$objSelection.TypeParagraph()
$objSelection.TypeText("Fax: xxxxxxxxxxxx")
$objSelection.TypeParagraph()
$objSelection.TypeText("E-mail:mail@@mail.dk")
$objSelection.TypeParagraph()
$objSelection.TypeText("www.myhomepage.dk")

$objSelection = $objDoc.Range()
$DISCARD=$objSignatureEntries.Add("xxxxxxxxx Signatur", $objSelection)
$objSignatureObject.NewMessageSignature = "xxxxxxxxx Signatur"
$objSignatureObject.ReplyMessageSignature = "xxxxxxxxxx Signatur"

$objDoc.Saved = 1
$objWord.Quit