quarta-feira, 14 de outubro de 2020

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



https://youtu.be/uejJ7CKQlXo


Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Ao Vivo vai estrear as 10:00 do dia 25/10/2020-

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

ASSUNTOS


Enviando o email
Criando botao
Entrando no codigo do botao
Digitando os comandos EMAILSMTPSESSION
Explicando EMAILSMTPSESSION
Acrescentando Destinatario no popup
Digitando dados do EMAIL 
Explicando Dados Email 
Fechando Sessão
Proxima Licao: Melhorias na Pagina 




DICAS 3067 -WEBDEV TUTORIAL 1-Licao 1.1-14-09-2020 11hrs-DESCUBRA WEBDEV
DICAS 3068 -WEBDEV TUTORIAL 1-Licao 1.2-14-09-2020 15hrs-Web development and WEBDEV - PARTE A
DICAS 3069 -WEBDEV TUTORIAL 3-Licao 1.2-14-09-2020 16hrs-Web development and WEBDEV - PARTE B


====================================

// btn_enviar ( popup)(server) 
// SMTP
MINHA_SESSAO is emailSMTPSession
MINHA_SESSAO..ServerAddress="smtpserver"
MINHA_SESSAO..name="nome_usuario"
MINHA_SESSAO..Password="senha"
IF EmailStartSession(MINHA_SESSAO)=False THEN
ToastDisplay("smtp com erro",toastLong,vaMiddle,haCenter,ErrorInfo())
    RETURN 
END
//EMAIL
EMAIL_DADOS is Email 
EMAIL_DADOS..Sender=EDT_Remetente
EMAIL_DADOS..Subject=EDT_Assunto
EMAIL_DADOS..html=EDT_HTML
EMAIL_DADOS..Message=HTMLToText(EDT_HTML)
EMAIL_DADOS..Recipient=EDT_Destinatario
// ENVIAR EMAIL
IF EmailSendMessage(MINHA_SESSAO,EMAIL_DADOS)=False THEN
ToastDisplay("ERRO MENSAGEM",ErrorInfo())
ELSE
    ToastDisplay("MENSAGEM ENVIADA COM SUCESSO")
END
// FECHAR SESSAO
EmailCloseSession(MINHA_SESSAO)



====================================





PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
Playlist windev Franca PcSoft
Amarildo
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Site forum Google 
Video sobre 3 Mil Videos Windev 
PlayList Pedrosao
Video sobre Alfaserver servidor 
Ultimo Video manipulacao arquivos











Agora vamos criar o controle de botão para enviar e-mails.

Enviando o email

  • Para criar o controle de botão para enviar e-mails:
    1. No painel "Criação", no grupo "Controles usuais", clique em Criação de um controle de botão.
    2. Clique no local onde deseja criar o controle de botão (por exemplo, na parte inferior da página).
    3. Selecione o controle e modifique sua legenda (pressione Enter, por exemplo). A nova legenda é "Enviar".
    4. Edite o código deste controle (F2).
    5. Digite os seguintes códigos no evento de servidor "Click":
      • o código para abrir a conexão e para iniciar a sessão SMTP:
        MySession é emailSMTPSession
        MySession .ServerAddress = "smtpserver"
        // Digite o endereço do servidor SMTP
        MySession .Name = "user_name"
        // Digite o nome de usuário (se necessário)
        MySession .Password = ""
        // Digite a senha (se necessário)
         
        // Inicia a sessão SMTP
        IF EmailStartSession MySession ) = False THEN ToastDisplay "Não foi possível conectar ao servidor SMTP." , ... ErrorInfo ()) RETURN END




        Este código usa uma variável avançada emailSMTPSession . As diferentes propriedades desta variável são usadas para definir as características da sessão SMTP. Em seguida, EmailStartSession associado a essa variável é usado para iniciar a sessão.
      • o código para preparar o e-mail:
        Sugestão é Email
        sugestão .Sender = EDT_ Sender
        sugestão .Subject = EDT_ Assunto
        sugestão .HTML = EDT_ HTML_Text
        sugestão .message = HTMLToText EDT_ HTML_Text )
        sugestão .Recipient = "desenvolvedor @ mysite"
        Este código usa uma variável de e - mail . As diferentes propriedades desta variável são usadas para definir as características do e-mail a enviar. Este código associa o conteúdo de diferentes controles de página às propriedades da variável Email.
      • o código para enviar o e-mail:
        // Envie o e-mail
        IF EmailSendMessage MySession Suggestion ) = False THEN ToastDisplay "Erro de envio" ErrorInfo ()) ELSE ToastDisplay "Obrigado por sua sugestão." END




        O email é enviado por EmailSendMessage . Basta passar como parâmetros: a variável que contém as características da sessão SMTP e a variável que contém as características do e-mail a enviar.
        Se o e-mail for enviado, uma mensagem Toast será exibida, indicando que o e-mail foi enviado. Uma mensagem brinde corresponde a uma mensagem furtiva.
      • o código para fechar a sessão SMTP:
        // Fechar a sessão SMTP
        EmailCloseSession MySession )
        Este código fecha a sessão com EmailCloseSession . Feche o editor de código.
  • Salve a página e seu código ( Salvar um elementoou Ctrl + S).






Teste

Teste
teste