reg express link e mailto

[Luca1317]

ho una funzione che mi trasforma http://www.sito.it/ http://sito.it/ http://demo.sito.it/ www.sito.it/ in link ipertestuali ma quando trova email del tipo luca.esposito@esse.it mi dovrebbe fare un mailto (un po come fa questo sito):

	function hrefreplace(str)
	Dim ObjRegexp
	Dim risultato
	Set ObjRegexp = New RegExp
	ObjRegexp.Global = True
	ObjRegexp.IgnoreCase = True
	ObjRegexp.Pattern = "([:/~a-zA-Z0-9_\-\.]+)\.([:/~a-zA-Z0-9]+)"
	str = ObjRegexp.Replace(str,"$1.$2")
	Set ObjRegexp = Nothing
	hrefreplace = replace(str,"http://http://","http://")
end function

qlche idea su come fare?