'하이퍼링크 자동으로 걸리게 만들기 

Function ereg_replace(ptrn, replStr, strng)
	Dim regEx 
	Set regEx = New RegExp
	regEx.Pattern = ptrn
	regEx.IgnoreCase = True
	regEx.Global = True
	ereg_replace = regEx.Replace(strng, replStr)
End Function


content = ereg_replace("((http|https|ftp|telnet|news):\/\/[a-z0-9-]+\.[][a-zA-Z0-9:&#@=_
~%;\?\/\.\+-]+)", "<a href='$1' target='_blank'>$1</a>", content)
content = ereg_replace("([_0-9a-zA-Z-]+(\.[_0-9a-zA-Z-]+)*)@([0-9a-zA-Z-]+(\.[0-9a-zA-Z-
]+)*)", "<a href='mailto:$1@$3'>$1@$3</a>", content)