VIDEO NO YOUTUBE SOBRE PROCEDURE
// EXIT FROM EDT_EMAIL
// VOU CHAMAR A ROTINA QUE CRIEI DE VERIFICAR EMAIL
// ANTES VOU CRIAR UMA VARIAVEL RETORNO
bRETORNO_EMAIL is boolean=verifica_email_Cadastros(EDT_Email)
// AGORA VOU VERIFICAR SE EMAIL É VERDADEIRO
IF bRETORNO_EMAIL=True THEN
// VERDADEIRO
ELSE
ReturnToCapture(EDT_Email)
END
PROCEDURE verifica_email_Cadastros(sRecebe_email)
// AQUI NA PROCEDURE VOU ARRUMAR NAO VOU DIZER QUE TIPO DE VARIAVEL É
// VOU CRIAR UMA VARIAVEL DE RETORNO BOOLEAN
RETORNO_EMAIL is boolean=False
// EU COPIEI E COLEI
// AGORA VOU CRIAR UM PARAMETRO PARA RECEBER O EMAIL
EmailCheckAddress(sRecebe_email,emailValidateSyntax)
SWITCH EmailCheckAddress(sRecebe_email)
CASE emailAddressValid
// SE FOR VERDADEIRO VOU COLOCAR COMO RETORNO EMAIL IGUAL VERDADEIRO
RETORNO_EMAIL=True
CASE emailAddressIncorrectSyntax
Info("A sintaxe do endereço está incorreta")
CASE emailAddressRefused
Info("O endereço foi recusado pelo servidor de e-mail."+CR+ErrorInfo())
CASE emailAddressError
Info("Ocorreu um erro durante a checagem "+CR+ErrorInfo())
OTHER CASE
Info("Caso indefinido")
END
// VOU MANDAR O RETORNO COM RESULT
RESULT RETORNO_EMAIL
---------------------- Indice Email
EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2
VERIFICA EMAIL - EMAILCHECKADDRESS - EMAIL 4 - AULA 1278
EMAIL-VERIFICA-TRANSFORMEI EM PROCEDURE - EMAIL 5 - AULA 1279
AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6
DICAS 1966 - PUBLICA - WINDEV - EMAIL 7 - ENVIAR EMAIL PELO WINDEV
DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13EMAIL-VERIFICA-TRANSFORMEI EM PROCEDURE - EMAIL 5 - AULA 1279
AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6
DICAS 1966 - PUBLICA - WINDEV - EMAIL 7 - ENVIAR EMAIL PELO WINDEV