Windev21 Aulas,Estudos e Desenvolvimento: outubro 2017

terça-feira, 31 de outubro de 2017

AULA 1279 WINDEV EMAIL 5 TRANSFORMA LINHAS EM PROCEDURE

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

CERTIFICACAO - SOLUCAO - EMAILCONFIGURE -EMAIL 003 - AULA 1277

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 2183 WINDEV WEBDEV MOBILE WEBDEV EMAIL 8 EMAIL PADRAO WINDOWS

DICAS 3143 -WEBDEV TUTORIAL 77 - 24-10-2020-10_00Hrs-Licao 5.3 - EMAIL ENVIANDO - TEORIA - PARTE A

DICAS 3144 -WEBDEV TUTORIAL 78 - 24-10-2020-10_30Hrs-Licao 5.3 - EMAIL - CRIAR POPUP E CONTROLES - PARTE A

DICAS 3145 -WEBDEV TUTORIAL 79 - 25-10-2020-10_00Hrs-Licao 5.3 - EMAIL - ENVIAR EMAIL CODIGO - PARTE C

DICAS 3146 -WEBDEV TUTORIAL 80 - 26-10-2020-10_00Hrs-Licao 5.3 - EMAIL - MEHORIA PAGINA - PARTE D FINAL

DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13

segunda-feira, 30 de outubro de 2017

AULA 1278 email 4 - EmailCheckAddress - VERIFICAR email

EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2

CERTIFICACAO - SOLUCAO - EMAILCONFIGURE -EMAIL 003 - AULA 1277

VERIFICA EMAIL - EMAILCHECKADDRESS - EMAIL 4 - AULA 1278
EMAIL-VERIFICA-TRANSFORMEI EM PROCEDURE - EMAIL 5 - AULA 1279

VIDEO VERIFICAR EMAIL

https://doc.windev.com/en-US/?1000017305&name=emailcheckaddress_function

// NA SAIDA DO EDT EMAIL VOU DIGITAR O CODIGO - EXIT FROM EDT_EMAIL

EmailCheckAddress(EDT_Email,emailValidateSyntax)
SWITCH EmailCheckAddress(EDT_Email)
CASE emailAddressValid
// Endereço válido
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

domingo, 29 de outubro de 2017

AULA 1277 EMAIL 3 - ERRO CERTIFICACAO - SOLUCAO

EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2

CERTIFICACAO - SOLUCAO - EMAILCONFIGURE -EMAIL 003 - AULA 1277

VERIFICA EMAIL - EMAILCHECKADDRESS - EMAIL 4 - AULA 1278

https://stg.webdev.info/publicationSt_WEB/FR/miseajourst.awp

http://www.wxinformatica.com/

http://www.matosinformatica.com.br/

https://doc.windev.com/en-US/?1000022269&name=EmailConfigure

VIDEO YOUTUBE EMAIL

Message("Enviando Email.....")
EmailConfigure(emailParameterMode,1)
EmailSetTimeOut(30)
HourGlass()
n_email_sessao is boolean
SWITCH COMBO_tls
CASE 1
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionSecuredTLS)
CASE 2
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta)
CASE 3
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,optionSSL)
CASE 4
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,emailOptionSecuredTLS)
CASE 5
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,optionSSL)
CASE 6
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True)
CASE 7
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False)
CASE 8
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,True,emailOptionDefault)
CASE 9
n_email_sessao=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionDefault)
END
s_erro_string is string=""
IF n_email_sessao=True THEN
_minha_mensagem is an Email // est un Email
IF EDT_EmailSender <> "" THEN
_minha_mensagem..Sender=EDT_EmailSender
ELSE
_minha_mensagem..Sender = EDT_USUARIO
END
IF EDT_destinatario<>"" THEN
Add(_minha_mensagem..Recipient, EDT_destinatario)
END
_minha_mensagem..Subject = EDT_ASSUNTO
_minha_mensagem..Message = EDT_MENSAGEM
sEmailParaRetorno is string = EDT_emailResposta
IF sEmailParaRetorno = ""
_minha_mensagem..SenderAddress = EDT_EmailSender
END
IF sEmailParaRetorno <> "" AND EmailCheckAddress(sEmailParaRetorno) = emailAddressValid THEN
_minha_mensagem..SenderAddress = sEmailParaRetorno
ELSE
IF sEmailParaRetorno="" THEN
ELSE
EDT_retorno+="ERRO NO EMAILPARARETORNO DIFERENTE BRANCO"
END
END
_minha_mensagem..ReturnReceipt = True
IF EDT_anexo <> "" AND Length(EDT_anexo) > 3 THEN
EmailLoadAttachment(_minha_mensagem,EDT_anexo)
END

IF EmailSendMessage(EDT_USUARIO, _minha_mensagem) = False THEN
Info(CR+"COMBO_tls["+COMBO_tls+"]"+CR+"EDT_Usuario["+EDT_USUARIO+"]"+CR+"EDT_senha["+EDT_SENHA+"]"+CR+"EDT_servidor_smtp["+EDT_SERVIDOR_SMTP+"]"+CR+"EDT_porta["+EDT_porta+"]"+CR+"ErrorInfo()a=["+ErrorInfo()+"]")
s_erro_string="Erro Mandar Mesnagem:"+CR+ErrorInfo()
ELSE
InfoWithTimeout(300,"Email enviado com sucesso!")
END
EmailCloseSession(EDT_USUARIO)
ELSE
Info(CR+"COMBO_tls["+COMBO_tls+"]"+CR+"EDT_Usuario["+EDT_USUARIO+"]"+CR+"EDT_senha["+EDT_SENHA+"]"+CR+"EDT_servidor_smtp["+EDT_SERVIDOR_SMTP+"]"+CR+"EDT_porta["+EDT_porta+"]"+CR+"ErrorInfo()b=["+ErrorInfo()+"]")
s_erro_string="Erro Configuracao"+CR+ErrorInfo()
END
HourGlass(False)
EDT_retorno=""
EDT_retorno+="Tls:"+COMBO_tls+CR
EDT_retorno+="Email:"+EDT_EmailSender+CR
EDT_retorno+="Usuario:"+EDT_USUARIO+CR
EDT_retorno+="Smpt:"+EDT_SERVIDOR_SMTP+CR
EDT_retorno+="Porta:"+EDT_porta+CR
EDT_retorno+="Destinatario:"+EDT_destinatario+CR
EDT_retorno+="Assunto:"+EDT_ASSUNTO+CR
EDT_retorno+="Mensagem:"+EDT_MENSAGEM+CR
EDT_retorno+="Email Resposta:"+EDT_emailResposta+CR
EDT_retorno+="ERRO:"+s_erro_string+CR

fSaveText("\temp\email_status.txt",EDT_retorno)