Function Tolink (STR) DIM Re 'Regular Expression Object DIM STRCONTENT IF INULL (STR) THEN STR = "" SET RE = New Regexp' Create Regular Expression Object with Re .global = True 'Search Apply to the entire string .ignoreCase = True 'Search SARCONTENT = STR
'********************************************************** ************** The email address link automatically sets' ************************************* **********************************. Pattern = "([/ w] *) @ ([/ w) /.]* "strcontent = .replace (strcontent,"
End with set re = nothing tolink = strcontent end function