Buenas,
Mi intención es que no se puedan introducir emails en el texto de un textarea.
Para ello ejecuto la siguiente funcion sobre la cadena recibida del textarea:
Código:
Public Function BuscaEmail(ByVal Cadena As String) As Variant
Dim regex As Object ' Create variable.
Set regex = New RegExp ' Create a regular expression.
regex.IgnoreCase = True ' Set case insensitivity.
regex.Global = True ' Set global applicability.
regex.Pattern = ("[a-z0-9_-]+(?:\.[a-z0-9_-]+)*@[a-z0-9_-]+(?:\.[a-z0-9_-]+)*\.[a-z]{2,6}") ' Set pattern.
BuscaEmail = "0"
Dim ma As match
For Each ma In regex.Execute(Cadena)
BuscaEmail = "No pueden introducirse direcciones de correo electrónico."
Next
End Function
Lo que sucede es que solo me devuelve "No pueden introducirse direcciones de correo electrónico." si la cadena coinicde con un correo, no si la cadena contiene un correo.
¿Alguna idea?