Hola buenas tardes como están todos, espero que bien, quiero preguntarles sobre como se podría validar cadenas que representan direcciones de correo electrónico, gracias.

Yo uso esta función:

Hola señor shordi buenas tardes:

Citar:

    
Re: Validar Un Campo Para Correo Electronico
    Cita rápida Off topic
Yo uso esta función:
Código: [Ocultar] [Seleccionar]
Public Function isMail(cad As String) As Boolean

Dim lret As Boolean

lret = True
If InStr(cad, "@") = 0 Or InStr(Trim(cad), " ") > 0 Or InStr(cad, ".") = 0 Then
lret = False
Endif
Return lret

End

Pero como haria adaptarla al Texbox? con la variable cad?, gracias

saludos

Jousseph:
Veo que no tienes clara la distinción entre evento y función.
Tú haz esto:



Por supuesto no tienes por qué usar el evento click de un botón.

Suerte

Gracias señor shordi lo hice con el  evento_click() y me funciono perfecto quería hacerlo con el Keypress pero es un estupidez porque me lanzaba al escribir (e-mail incorrecto por cada tecleada jajaja)

If TextBox_e_mail_victima.Text = "" Then
   MESSAGE.INFO("POR FAVOR COMPLETE EL CAMPO DE E-MAIL EN (DATOS DE VÍCTIMA)!")
   Else
   If Not isMail(TextBox_e_mail_victima.text) Then
    message("E-Mail incorrecto")
Else
Try conexion.hconn.EXEC("insert into tabla values(&1,&2,&3)",
textbox1.text, textbox2.text)
endif
endif
end

Muchas gracias.