topic-34245

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Comprobar segundo email con erro

Posted: Wed Jun 21, 2017 08:29 PM

Buenas foro, como hago para verificar el segundo email con erro?

...... correcto errado necesito verificar

<!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->; kapi <!-- e --><a href="mailto:abafwh@hotmail.com">abafwh@hotmail.com</a><!-- e -->

Gracias, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Comprobar segundo email con erro

Posted: Thu Jun 22, 2017 07:20 PM

Thanks friends, aparentemente, problema resolvido.

Code (fw): Select all Collapse

FUNCTION CHECA_EMAIL_ERRADO( cEmailCliente )

   LOCAL cContaUsuario, cNomeUsuario
   LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
   LOCAL lIsValid := .F., cRet
   LOCAL cEmailErro, cEmail

   IF EMPTY( cEmailCliente )

      MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                    " )+CRLF+ ;
               OemToAnsi( "EMAIL DO CLIENTE ESTµ VAZIO NO PLENO" )+CRLF+ ;
               OemToAnsi( "DIGITE O NOME DA CONTA DE EMAIL.    " )+CRLF+ ;
               OemToAnsi( "<Comercial>:<Clientes>:<Alteracoes>." )+CRLF+ ;
               OemToAnsi( "Exemplo: <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->       " ),      ;
               OemToAnsi( "EMAIL(Conta) NÇO INFORMADO. CUIDADO!" ) )

      lIsValid := .F.

   ENDIF

   IF ( ALLTRIM(LOWER( cEmailCliente ) ) LIKE cRegEx )

      lIsValid := .T.

   ELSE

      IF AT( ";", ALLTRIM( cEmailCliente ) ) > 0

         cEmail     := ALLTRIM( cEmailCliente )

         cEmailErro := HB_aTokens( cEmail, ";" )

         IF ( ALLTRIM(LOWER( cEmailErro[1] ) ) LIKE cRegEx )

           lIsValid := .T.

         ELSE

            IF EMPTY( cEmailCliente )
              // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA
            ELSE
               MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                  1" )+CRLF+ ;
                        OemToAnsi( "DIGITE UM EMAIL VÇLIDO...          " )+CRLF+ ;
                        OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
                        OemToAnsi( "Exemplo: <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->      " )+CRLF+ ;
                        OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEmailCliente ) ), ;
                        OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) )
            ENDIF

            lIsValid := .F.

         ENDIF

         IF ( ALLTRIM(LOWER( cEmailErro[2] ) ) LIKE cRegEx )

            lIsValid := .T.

         ELSE

            IF EMPTY( cEmailCliente )
              // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA



            ELSE
               MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                  2" )+CRLF+ ;
                        OemToAnsi( "DIGITE UM EMAIL VÇLIDO...          " )+CRLF+ ;
                        OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
                        OemToAnsi( "Exemplo: <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->      " )+CRLF+ ;
                        OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEmailCliente ) ), ;
                        OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) )
            ENDIF

            lIsValid := .F.

         ENDIF

      ELSE

         IF EMPTY( cEmailCliente )
           // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA
         ELSE
            MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                   " )+CRLF+ ;
                     OemToAnsi( "DIGITE UM EMAIL VÇLIDO...          " )+CRLF+ ;
                     OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
                     OemToAnsi( "Exemplo: <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->      " )+CRLF+ ;
                     OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEmailCliente ) ), ;
                     OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) )
         ENDIF

         lIsValid := .F.

      ENDIF

   ENDIF

RETURN( lIsValid )

Obg. abs.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Comprobar segundo email con erro

Re: Comprobar segundo email con erro

Continue the discussion