Mejorando el tratamiento de los emails

[paquitohm]

Buenas a todos,

¿ Alguien trata en sus programas los emails con esta sintaxis-ejemplo ?

Paco Pérez <pacoperez@suempresa.com>

¿ O incluso de la siguiente forma ?

Juan María Vianney <juanma@suempresa.com>;Pedro Luis Soler<soler@otraempresa.com>;Luis María Grigñon <Luisma@renew.com>

[karinha]

Yo hago asi,

Code: Select all  Expand view  RUN

// Conta do Email
FUNCTION CHECA_GET_CONTA( cEMAILNOCONTA, aGet )   // mudei em: 14/08/2014

   LOCAL cContaUsuario, cNomeUsuario
   // LOCAL cRegEx := "^[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$"  // ou:
   LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
   LOCAL lIsValid := .F.

   PUBLIC cNomeUsuFinal

   IF GETASYNCKEY( VK_UP )
      RETURN( .T. )
   ENDIF

   IF EMPTY( cEMAILNOCONTA )  // = a XEMAILNOCONTA

      // Mensageria

      RETURN( .F. )

   ENDIF

   #IFDEF __XHARBOUR__  //

      // if xHarbour -> Funciona perfecto.

      IF ( ALLTRIM(LOWER( cEMAILNOCONTA ) ) LIKE cRegEx )
         lIsValid := .T.
      ELSE

         // Mensageria

      ENDIF

   #ELSE

      IF ( HB_REGEXLIKE( ALLTRIM( LOWER( cEMAILNOCONTA ) ), cRegEx )  )
         lIsValid := .T.
      ELSE

         // Mensageria

      ENDIF

   #ENDIF


RETURN( lIsValid )

FUNCTION VER_EMAIL_ERRADO( cDest )

   LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
   //LOCAL cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
   LOCAL cRet

   IF EMPTY( cDest )

      // Mensageria

      RETURN( .F. )

   ELSE

      // Destinatario do Email a Enviar
      cDest := LOWER( cDest )

      cRet := HB_AtX( cRegEx, cDest, .F. )

      IF cRet != ALLTRIM( cDest ) .OR. .NOT. ( "@" $ cDest .AND. "." $ cDest )

            // Mensageria

            RETURN( .F. )

      ENDIF

      IF AT( " ", ALLTRIM( cDest ) ) > 0

         IF AT( ";", ALLTRIM( cDest ) ) > 0
            // NADA A FAZER, CONTEM + DE 1 EMAIL NO PLENO
         ELSE

            // Mensageria

            RETURN( .F. )

         ENDIF

      ENDIF

   ENDIF

RETURN( .T. )
 

Regards, saludos.

[paquitohm]

Hola Karinha

Gracias por el aporte. Ese tema, el de validacion lo tengo más o menos resuelto para emails simples xxxxxx@xxxxx.com

{2,4}
4 para dominio es poco. Habria que poner 63

Lo que yo planteo es si alguno de vds. vosotros utilizan el formato "normal" o extendido y sencillo o multiple separado por ; ?

Salu2