Automail m. regExp
Hej,Er der ikke nogen der lige med et snuptag kan udvide nedenstående funktion, så den også laver mailadresser til mailto: ?
function autoHighLight(Streng)
Set objRegExpHTTP1 = New RegExp
objRegExpHTTP1.Global = True
objRegExpHTTP1.IgnoreCase = True
' Links der starter med http, ftp eller https
objRegExpHTTP1.Pattern = "(http|ftp|https)(:\/\/[\w]+)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
Streng = objRegExpHTTP1.Replace(Streng, "<a class=""autoLink"" href=""$1$2$3$4"" onclick=""window.open(this.href,'_blank');return false;"">http://$2$3$4</a> <img src=""graf/link.gif"" alt=""Link til http$2$3$4"" />")
' Links der starter med www
objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
Streng = objRegExpHTTP1.Replace(Streng, " $1<a class=""autoLink"" href=""http://$2$3$4"" onclick=""window.open(this.href,'_blank');return false;"">http://$2$3$4</a> <img src=""graf/link.gif"" alt=""Link til $2$3$4"" />")
set objRegExpHTTP1 = Nothing
autoHighLight = Streng
end function
På forhånd tak :)
