Leandro Ascierto

Visual Basic

 
Email Control

EMAIL CONTROL

 

Control de usuario para poder escribir direcciones de correo de una forma muy sencilla tal como la que utiliza el correo de Hotmail, cuenta con una lista desplegable con las posibles sugerencias del Nombre, Apellido y Email de los contactos a quienes queremos escribir. El control valida cada dirección de correo ingresada, de no ser correcta la marca en rojo. Este control también sirve para crear una lista de archivos adjuntos.
El UserControl depende de dos controles de usuario más y un módulo Clase, cuenta con las opciones básicas y algunos eventos que creo que son los suficientemente necesarios para un uso común, es código abierto cualquiera lo puede adaptar a su necesidad.

Email Control

Aquí en la captura se muestra cómo la lista nos va sugiriendo cual de nuestros contacto queremos escribir.

Lista de sugerencias

Descargar EmailControl.zip
38 Kb
Descargado 245 veces



5/5 puntos (4 votos)


Bookmark and Share

7 Comentarios

  1.  

    Nooo!!! Buenisimo! Te sarpaste leandro!
    Esta de 10, espectacular.

    Solo un consejo/petitorio, seria mejor si fuera mas "generico", o sea, que no solo acepte emails, sino que sea personalizable
    .....
    Edit, ahora que lo veo, como usas expresiones regulares no creo que sea muy dificil cambiarlo (creo) pero de todas formas esta genial


    Eso si, cuando escribes un mail valido pero que no esta en la lista de contactos no lo remarca con el cuadrito azul.... yo creo que para mi si deberia remarcarlo.

    Saludos, cada dia sorprendes mas!

  2.  

    Edito (eso me pasa x hablar antes de terminar de ver :P), veo que para que se remarque debes presionar enter, nose...para mi deberia ser automatico, de todas formas sigue siendo espectacular

  3.  

    Leandro esta perfecto solo que puede que sea mejor no validar los dominios de la forma en la que presentasete el código debido a que hay cientos de dominios y no solo los que estan de manera predeterminada, aparte creó que se pueden hacer dominios propios asi y también estan los .name y eso.. Por lo demás esta perfecto, saludos!

  4.  

    esa validación la saque de http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/95.htm
    pense que no podian existir más que esos dominios, de todas formas solo lo marcara en rojo lo que no significa que si se emplea en un mailer no lo enviara. voy a ver si encuentro un poco mas de info al respecto.

    Saludos.

  5.  

    De todas formas puedes cambiar la expresion regular por la que viste en mi firma leandro, no hay drama (?)

    http://foro.elhacker.net/t-t282130.0.html;msg1392077#msg1392077

    Es la base de todos los mails que pueden existir :P

  6.  

    Leandro, el control tiene un error para obtener un mail. Lo corregi con esto

    Public Function GetEmail(ByVal Index As Long) As String
    GetEmail = col(Index).EmailAddress
    End Function

    Anteriormente estaba asi
    Public Function GetEmail(ByVal Index As Long) As String
    GetEmail = col(Index).Email
    End Function

  7.  

    Ups, si se me escapo, el nombre, gracias por la info. ya lo corrijo

Deja tu comentario

Todos los campos son requeridos excepto el de la web

Tu Nombre o Nick

Tu Email (no ser publicado)

Pgina Web (opcional)

Comentario


Cdigo de seguridad