Link Function

Hej Experter!

Jeg har en link fuktion som automatisk oversætter en link fra en indtastnings box til en klikbar link i visningen.

Den virker kun til alm. web adresser er der nogen der også kan få den til at gøre det med mail adresser?

Her er min funktion


                                        Function LinkString2(strInput)
                                        Set objRegExpHTTP1 = New RegExp
                                        Set objRegExpHTTP2 = New RegExp

                                        objRegExpHTTP1.Pattern = "(http|ftp|irc|nntp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
                                        objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"

                                        objRegExpHTTP1.Global = True
                                        objRegExpHTTP2.Global = True

                                        objRegExpHTTP1.IgnoreCase = True
                                        objRegExpHTTP2.IgnoreCase = True

                                        strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank' class='smallink'>$1$2</a> ")
                                        strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank' class='smallink'>$2</a> ")

                                        objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
                                        strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
                                        objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
                                        strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
                                        objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
                                        strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

                                        Set objRegExpHTTP2 = Nothing
                                        set objRegExpHTTP1 = Nothing

                                        LinkString2 = strOutput
                                        End Function

/Roadi