quarta-feira, 19 de agosto de 2020

DICAS 3038 - WINDEV TUTORIAL 61 - ENVIAR EMAIL - CODIGO - PARTE B


https://youtu.be/4PQokAEJHXo


Bom Dia/Boa Tarde/Boa Noite

Esse Ao Vivo vai estrear as 10:00 do dia 29/08/2020 

DICAS 3038 - WINDEV TUTORIAL 61 - ENVIAR EMAIL - CODIGO - PARTE B 
Tutoriel WINDEV : Leçon 4.9.b. Envoyer un email - Code

ASSUNTOS

EXPLICANDO O QUE SERA FEITO NESSA LICAO
CRIANDO BOTAO PARA ENVIAR EMAIL 
CRIANDO O CODIGO DE ENVIO EMAIL 
      ABRE SESSAO
  PREPARA EMAIL
  ENVIA EMAIL
  FECHA SESSAO
EXPLICANDO SOBRE GMAIL O QUE TEM DE ACRESCENTAR
ACRESCENTANDO CHECK SOBRE SE É GMAIL 
emailSMTPSession
Email
EmailSendMessage  
EmailCloseSession

Video original da Franca

https://youtu.be/RIOobmS5IrU



Playlist Windev TUTORIAL

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


// BTN ENVIAR

// WLanguage code for opening the connection and starting the SMTP session:
// Código WLanguage para abrir a conexão e iniciar a sessão SMTP

minha_sessao is emailSMTPSession
minha_sessao..Name=EDT_USUARIO
minha_sessao..Password=EDT_SENHA
minha_sessao..ServerAddress=EDT_SERVIDOR_SMPT
minha_sessao..Port=EDT_PORTA
//INICIO - SE FOR GMAIL VAMOS ACRESCENTAR
IF CBOX_Gmail=True THEN
   minha_sessao..Option=emailOptionSecuredTLS
END
//FIM - SE FOR GMAIL VAMOS ACRESCENTAR
// vamos comecar sessao smtp
IF NOT EmailStartSession(minha_sessao) THEN
Error("conexao smpt"+ErrorInfo)
RETURN
END

// Código WLanguage para preparar o e-mail
MINHA_MENSAGEM is Email 
MINHA_MENSAGEM..Sender=EDT_Email_Remetente
MINHA_MENSAGEM..Subject=EDT_ASSUNTO
MINHA_MENSAGEM..HTML=EDT_CONTEUDO
MINHA_MENSAGEM..Message=HTMLToText(EDT_CONTEUDO)
// VAMOS ADICIONAR O DESTINATARIO
Add(MINHA_MENSAGEM..Recipient,COMBO_destinatario..DisplayedValue)
// VAMOS ADICIONAR ANEXO 
IF EDT_ANEXO<>"" THEN
EmailLoadAttachment(MINHA_MENSAGEM,EDT_ANEXO)
END

// Código WLanguage para enviar o e-mail

IF EmailSendMessage(minha_sessao,MINHA_MENSAGEM)=False THEN
Error("ERRO EMAIL NAO ENVIADO",ErrorInfo())
ELSE
//MENSAGEM ENVIADA
ToastDisplay("MENSAGEM ENVIADA COM SUCESSO",toastShort,vaMiddle,haCenter)
END

// Código WLanguage para fechar a sessão SMTP

EmailCloseSession(minha_sessao)






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Sending the email

  • To create the Button control to send emails:
    1. On the "Creation" pane, in the "Usual controls" group, click Creating a Button control.
    2. Click the location where the control will be created (at the bottom of the window for example).
    3. Select the control and modify its caption (press Enter for example). The new caption is "Send".
    4. Edit the WLanguage code associated with this Button control: select "Code" in the popup menu (right click).
    5. Write the following lines of code in the "Click" event:
      • WLanguage code for opening the connection and starting the SMTP session:
        MySession is emailSMTPSession
        MySession..Name = EDT_User
        MySession..Password = EDT_Password
        MySession..ServerAddress = EDT_SMTP_Server
        MySession..Port = EDT_Port
        // Starts the SMTP session
        IF NOT EmailStartSession(MySession) THEN
        Error("Unable to connect to the SMTP server.", ...
        ErrorInfo())
        RETURN
        END
        This code uses an advanced emailSMTPSession variable. The different properties of this variable are used to define the characteristics of SMTP session. Then, EmailStartSession associated with this variable is used to start the session.
      • WLanguage code for preparing the email:
        MyMessage is Email
         
        MyMessage..Sender = EDT_Sender
        MyMessage..Subject = EDT_Subject
        MyMessage..HTML = EDT_HTML_Text
        MyMessage..Message = HTMLToText(EDT_HTML_Text)
         
        // Adds a recipient
        Add(MyMessage..Recipient, COMBO_Recipient..DisplayedValue)
         
        // Adds the attachment if necessary
        IF EDT_File <> "" THEN
        EmailLoadAttachment(MyMessage, EDT_File)
        END
        This code uses an Email variable. The different properties of this variable are used to define the characteristics of email to send. This code associates the content of different window controls to the properties of Email variable.
      • WLanguage code for sending the email:
        // Send the email
        IF EmailSendMessage(MySession, MyMessage) = False THEN
        Error("Message not sent.", ErrorInfo())
        ELSE
        // Message sent
        ToastDisplay("Message sent", toastShort, ...
        vaMiddle, haCenter)
        END
        The email is sent by EmailSendMessage. Simply pass as parameters: the variable that contains the characteristics of the SMTP session, and the variable that contains the characteristics of the email to send.
        If the email is sent, a Toast message is displayed, indicating that the email was sent. A Toast message corresponds to a furtive message.
      • WLanguage code for closing the SMTP session:
        // Closes the SMTP session
        EmailCloseSession(MySession)
        This code closes the session with EmailCloseSession.


    DICAS 2978 - WINDEV TUTORIAL 1 - 1.1B - WINDEV TEMA ESCURO E IDIOMA DO AMBIENTE
    DICAS 2979 - WINDEV TUTORIAL 2 - 1.2- CRIAR JANELA E INSERIR TEXTO E EXIBIR
    DICAS 2980 - WINDEV TUTORIAL 3 - 2.1- VARIAVEIS PARTE 1
    DICAS 2981 - WINDEV TUTORIAL 4 - 2.2- VARIAVEIS ESCOPO - PARTE 2
    DICAS 2982 - WINDEV TUTORIAL 5 - 2.1- VARIAVEIS OPERADORES PARTE 3
    DICAS 2983 - WINDEV TUTORIAL 6 - 2.1.D - VARIAVEIS STRINGS PARTE 4
    DICAS 2984 - WINDEV TUTORIAL 7 - 2.1.E - VARIAVEIS ARRAYS PARTE 5
    DICAS 2985 - WINDEV TUTORIAL 8 - 2.2.A - CONDICOES IF-SWITCH PARTE 1
    DICAS 2986 - WINDEV TUTORIAL 9 - 2.2.B - CONDICOES PARTE 2
    DICAS 2987 - WINDEV TUTORIAL 10 - 2.3.A - LOOP PARTE 1
    DICAS 2988 - WINDEV TUTORIAL 11 - 2.3.B - LOOP EXEMPLOS PARTE 2
    DICAS 2989 - WINDEV TUTORIAL 12 - Lesson 2.4. The procedures - PARTE 1
    DICAS 2990 - WINDEV TUTORIAL 13 - Leçon 2.4.b. Procedures Parametros - PARTE 2
    DICAS 2991 - WINDEV TUTORIAL 14 - PROCEDURES REFERENCIA - PARTE 3
    DICAS 2992 - WINDEV TUTORIAL 15 - PROCEDURES OPCIONAIS OU OBRIGATORIAS - PARTE 4
    DICAS 2993 - WINDEV TUTORIAL 16 - PROCEDURES EXEMPLOS - PARTE 5
    DICAS 2994 - WINDEV TUTORIAL 17 - PERGUNTAS E RESPOSTA - PARTE 1
    DICAS 2995 - WINDEV TUTORIAL 18 - PERGUNTAS E RESPOSTA - PARTE 2
    DICAS 2996 - WINDEV TUTORIAL 19 - WINDEV E OS BANCOS DE DADOS
    DICAS 2997 - WINDEV TUTORIAL 20 - PROJETO E ANALISE - CRIACAO
    DICAS 2998 - WINDEV TUTORIAL 21 - PROJETO E ANALISE - ARQUIVOS DADOS CLIENTE - PARTE 2
    DICAS 2999 - WINDEV TUTORIAL 22 - PROJETO E ANALISE - ARQUIVOS DADOS CRIACAO ARQUIVO PEDIDO - PARTE 3
    DICAS 3000 - WINDEV TUTORIAL 23 - PROJETO E ANALISE - IMPORTANDO CVS-ARQUIVO TEXTO - PARTE 4
    DICAS 3001 - WINDEV TUTORIAL 24 - PROJETO E ANALISE - IMPORTANDO ARQUIVO PRODUTO - PARTE 5
    DICAS 3002 - WINDEV TUTORIAL 25 - PROJETO E ANALISE - LINK - PARTE 6
    DICAS 3003 - WINDEV TUTORIAL 26 - RAD COMPLETO
    DICAS 3004 - WINDEV TUTORIAL 27 - VISAO GERAL
    DICAS 3005 - WINDEV TUTORIAL 28 - Adicionar e Modificar Janelas PRODUTOS - PARTE A
    DICAS 3006 - WINDEV TUTORIAL 29 - Adicionar e Modificar Janelas PRODUTOS Formulario - PARTE B
    DICAS 3007 - WINDEV TUTORIAL 30 - Adicionar e Modificar Janelas PRODUTOS ALINHAR CAMPOS - PARTE C






    Postado por às
    Marcadores: ,

    Nenhum comentário:

    Postar um comentário

    Assinar: Postar comentários (Atom)

    Teste

    Teste
    teste