quarta-feira, 19 de agosto de 2020

DICAS 3039 - WINDEV TUTORIAL 62 - ENVIAR EMAIL - MELHORIAS - PARTE C

t8uWJMdutNo

Bom Dia/Boa Tarde/Boa Noite

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

DICAS 3039 - WINDEV TUTORIAL 62 - ENVIAR EMAIL - MELHORIAS - PARTE C

Tutoriel WINDEV : Leçon 4.9.c. Envoyer un email - Améliorations

https://windevdesenvolvimento.blogspot.com/2020/08/dicas-3039-windev-tutorial-62-enviar.html

ASSUNTOS

EXPLICANDO O QUE SERA FEITO NESSA LICAO

ANCORANDO OS CAMPOS

EXPLICANDO F5 - ORDENS DOS CAMPOS

ACRESCENTAR BOTAO FECHAR

ACRESCENTAR MENU OPCAO PARA CHAMAR EMAIL

ABRINDO EMAIL JANELA NAO MODAL

OpenChild

smtp.gmail.com

25 / 587

TESTE DE EMAIL

https://doc.windev.com/en-US/?1410087539&name=lesson_49_sending_email

Video original da Franca

https://youtu.be/mcNnQ3hditQ

Playlist Windev TUTORIAL

https://www.youtube.com/playlist?list=PLwJwZaqiZW-lxU1XF0M0htb5S5f8pavuE

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

// 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

Window improvements

We are going to improve our window:

Add a Button control to close the window.
Format the window via the management of anchors and the tab order.
Start the window from the "WIN_Menu" window.

Closing the window

To add a Button control to close the window:
1. On the "Creation" pane, in the "Usual controls", expand "Button": the list of preset buttons is displayed.
2. Click the "Close" button.
3. Click the position in the window where the control must be created (for example at the bottom, to the right of the "Send" Button control).

Formatting

To define the anchors:
- Select the "Sender", "Recipient" and "Subject" controls: these controls must be anchored in width.
- Select the "HTML text" control: this control must be anchored in width and in height.
- Select the Button controls: these controls must be anchored to the right and at the bottom.
- Select the control for file selection: this control must be anchored in width and at the bottom.

To define the tab order:


	Remark	The tab order of controls is the order in which the user can type the values in the different window controls. At runtime, the Tab key allows switching from one control to another. The default tab order corresponds to the creation order of controls. It can be modified: by specifying an automatic tab order: the first control in edit will be the control found in the top left corner of window, the second one will be the one found immediately to its right or below... by specifying a tab order by selection.

Display the tab order by pressing F5.
Define the automatic tab order: on the "Window" pane, in the "Order" group, expand "Tab order" and select "Define automatically".
The numbers are modified and they now appear in order.
Press F5 again to hide the numbers.
Save the window ( or Ctrl + S).

Non-modal opening of window

The window for email management will be opened from the "WIN_Menu" window. Its opening mode is specific because this window must not prevent the information displayed in the "WIN_Menu" window from being viewed.

To open the "WIN_Sending_an_email" window from the "WIN_MENU" window:
1. Open "WIN_Menu" in the editor (double-click its name in the "Project explorer" pane, for example).
2. In the editor, expand the "Menu" option and select "Exit".
3. Open the popup menu of the "Exit" option (right click) and select "Add before".
4. Type the option caption ("Send an email") and validate.
5. Select the "Exit" option again.
6. Open the popup menu of the "Exit" option (right click) and select "Insert a separator".
7. Open the popup menu of the "Send an email" option (right click) and select "Code".
8. Write the following WLanguage code:
  // Opens the window for sending emails
  OpenChild(WIN_Sending_an_email)
  In this WLanguage code, OpenChild is used to open the window in "non-modal" mode: the user will be able to write an email and to see the information displayed in the main window at the same time.

Save the window and its code ( or Ctrl + S).

Run the project test ( among the quick access buttons) and open the window for sending emails via "Menu .. Send an email".

DICAS 3008 - WINDEV TUTORIAL 31 - Adicionar e Modificar Janelas ANCORAS - PARTE D
DICAS 3009 - WINDEV TUTORIAL 32-Adicionar e Modificar Janelas - Exibicao registro - PARTE E

DICAS 3010 - WINDEV TUTORIAL 33-Adicionar e Modificar Janelas - Modifica Imagen - PARTE F

DICAS 3011 - WINDEV TUTORIAL 34 - Adicionar e Modificar Janelas - Validacao - PARTE G

DICAS 3012 - WINDEV TUTORIAL 35 - Adicionar e Modificar Janelas - CRIACAO - PARTE H

DICAS 3013 - WINDEV TUTORIAL 36 - Adicionar e Modificar Janelas - Teste - PARTE I

DICAS 3014 - WINDEV TUTORIAL 37 - Pesquisa Simples - Apresentacao - PARTE A

DICAS 3015 - WINDEV TUTORIAL 38 - Pesquisa Simples - Usando Controle Tab- PARTE B

DICAS_3016_WINDEV_TUTORIAL_39_Pesquisa_Simples_Configurando_Pesquisa_PARTE_C

DICAS 3017 - WINDEV TUTORIAL 40 - Pesquisa Simples - Pesquisa Identica- PARTE D

DICAS 3018 - WINDEV TUTORIAL 41 - Pesquisa Simples - Pesquisa Generica - PARTE E

DICAS 3019 - WINDEV TUTORIAL 42 - Pesquisa Simples - Navegacao pelos Arquivos - PARTE F

DICAS 3020 - WINDEV TUTORIAL 43 - Pesquisa Multicriterio - Apresentacao - Parte A

DICAS 3021 - WINDEV TUTORIAL 44 - Pesquisa Multicriterio - Criacao Consulta - Parte B

DICAS 3022 - WINDEV TUTORIAL 45 - Pesquisa Multicriterio - Uso Parametro - Parte C

DICAS 3023 - WINDEV TUTORIAL 46 - Pesquisa Multicriterio - Criando Interface - Parte D

DICAS 3024 - WINDEV TUTORIAL 47 - Pesquisa Multicriterio - Primeiro Parametro - Parte E

DICAS 3025 - WINDEV TUTORIAL 48 - Pesquisa Multicriterio - Segundo Parametro - Parte F

DICAS 3026 - WINDEV TUTORIAL 49 - Pesquisa Multicriterio - Parametro Data - Parte G

DICAS 3027 - WINDEV TUTORIAL 50 - IMPRIMIR_TABELA

DICAS 3028 - WINDEV TUTORIAL 51 - IMPRIMIR PEDIDO-CRIACAO RELATORIO - PARTE A

DICAS 3029 - WINDEV TUTORIAL 52 - IMPRIMIR PEDIDO - CRIAR O RELATORIO BASE QUERY - PARTE B

DICAS 3030 - WINDEV TUTORIAL 53 - IMPRIMIR PEDIDO - ALTERACOES RELATORIO - PARTE C

DICAS 3031 - WINDEV TUTORIAL 54 - IMPRIMIR PEDIDO - MENU RELATORIO - PARTE D

DICAS 3032 - WINDEV TUTORIAL 55 - RELATORIO LISTA CLIENTE - PARTE A

DICAS 3033 - WINDEV TUTORIAL 56 - RELATORIO CLIENTE - Imprimir - PARTE B

DICAS 3034 - WINDEV TUTORIAL 57 - ESTATISTICAS GRAFICO PIVOT - QUERY ANO - PARTE A

DICAS 3035 - WINDEV TUTORIAL 58 - ESTATISTICAS GRAFICO PIVOT - GRAFICO-PARTE B

DICAS 3036 - WINDEV TUTORIAL 59 - ESTATISTICAS - PIVOT - PVT - PARTE C

DICAS 3037 - WINDEV TUTORIAL 60 - ENVIAR EMAIL - ADICIONANDO CAMPOS - PARTE A

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

DICAS 3039 - WINDEV TUTORIAL 62 - ENVIAR EMAIL - MELHORIAS - PARTE C

DICAS 3040- WINDEV TUTORIAL 63 - GROUPWARE - CONFIGURACAO - PARTE A

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

https://windevdesenvolvimento.blogspot.com/2020/08/dicas-3038-windev-tutorial-61-enviar.html

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

EmailSendMessage

EmailCloseSession

Video original da Franca

https://youtu.be/RIOobmS5IrU

Playlist Windev TUTORIAL

https://www.youtube.com/playlist?list=PLwJwZaqiZW-lxU1XF0M0htb5S5f8pavuE

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

// 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 .
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.