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.