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








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














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



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




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

http://www.wxinformatica.com/

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


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)
























terça-feira, 24 de outubro de 2017

AULA 1275 WEBDEV 027 LARGURA E ALTURA PAGINA











VIDEO NO YOUTUBE





Blog - Webdev - Curso 1/... Primeira Pagina
Blog - Webdev - Curso 2/... Edit Mostrar
Blog - Webdev - Curso 3/... Template
Blog - Webdev - Curso 4/... Pagina Chama / Imagen
Blog - Webdev - Curso 5/... Menu
Blog - Webdev - Curso 6/... Palete Skin
Blog - Webdev - Curso 7/... - Colocar Analise
Blog - Webdev - Curso 8/... Rad - Cadastro Tecnico
Blog - Webdev - Curso 9/... - Menu Chamando Sistema 
Blog - Webdev - Curso 10/... - Tabela com Query 
Blog - Webdev - Curso 11/... - Inclui Altera Exclui Sistema
Blog - Webdev - Curso 12 /.. - Relatorio Como Gerar
Blog - Webdev - Curso 13/... - Rad Cliente Atendimento Combox 
Blog - Webdev - Curso 14/... Agenda Incluir Fotos / Imagens
Blog - Webdev - Curso 15/... - Jquery - Baixar Site /Instalar
Blog - Webdev - Curso 16/... - Jquery - Webdev Configurar Telefone
Blog - Webdev - Curso 17/.. - Ajax - Cpf Validar
Blog - Webdev - Curso 18/... Jquery Enter nos Campos
Blog - Webdev - Curso 19/... - Graficos
Blog - Webdev - Curso 20/... - Timer
Blog - Webdev - Curso 22/... - Servidor_Could_AlphaServers - 2/... - Instalar IIS WindowsServer
Blog - Webdev - Curso 23/... - Servidor_Could_AlphaServers - 3/... - Instalar FTP WindowsServer
Blog - Webdev - Curso 24/... - Servidor_Could_AlphaServers - 4/... - Instalar Was WebDev 10 Con.
Blog - Webdev - Curso 25/... - Servidor_Could_AlphaServers - 5/... - Deploy e Site Funcionando
http://windevdesenvolvimento.blogspot.com.br/2016/08/webdevcurso025servidorcould_29.html
TAMANHO PAGINA - WEBDEV 27 AULA 1275
ABRIR PAGINA - ALTERACAO - BROWSEOPEN - WEBDEV 28 - AULA 1280





















Primeira Pagina - WebDev - 001/...
Instalação Primeira Pagina , Instalar Conexao 10 WebDev 22 - 002/...
Criando Zoning/Menu/Modelo Pagina - Webdev 22 - 003/...
Arrumando webDev Servidor Was 10 Conexões no Could - WebDev22 - 004/...
Cadastro de Sites uteis - WebDev22 - 005/...
Configurar botoes/Aba Sites Uteis - WebDev22 - 006/...
Planos - Como Configurar - Bandeau défilant - WebDev22 - 007/...
Html/Css/JavaScript - Composant Web - WebDev22 - 008/...
Pagina Link - Entrar Pagina - WebDev22 - 009
Jquery - Explode - WebDev22 - 010
Jquery - Muda cor/esconde/delay/mostra/muda texto - WebDev22 - 011
Jquery - Cor Background/Imagen/Visibilidade- Diversos 2 - WebDev22 - 012
Imagen Zoom - WebDev22 - 013
Upload Imagen - WebDev22 14/...
Planos / Criar Pagina - WebDev22 15/...
Criando Select Cliente/Representante - WebDev22 16/... Aula 1116
Criando Abas - Tabelas Relacao Clientes - WebDev22 17/... - Aula 1117
Combox Tecnico/Status - WebDev22 18/... - Aula 1118
Ultimos Campos Atendimento - WebDev22 19/... Aula 1119
Gravar Atendimento - WebDev22 20/... Aula 1120
Deploy Sistema Chamado WebDev 22 21 / Aula 1121
Login - Pagina WebDev 22 22/... Aula 1122
Login Trocando Conexão - WebDev 22 23/... Aula 1123
Tabela Ancorar Coluna - WebDev 22 24/... Aula 1124
Tempo - Aumentar Pagina Sem Sair - WebDev22 25/... - Aula 1125
LIBERAR CAMPO - WEBDEV22 26/... - AULA 1184








Teste

Teste
teste