Páginas

▼

terça-feira, 20 de abril de 2021

DICAS 3310 - WINDEV WEBDEV MOBILE - Receber os dados para preencher automatico os dados do email - Email Botao Envia Codigo - Parte 4 - Email - 16



https://youtu.be/xLfx31Fc8rM




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 20/04/2021 

DICAS 3310 - WINDEV WEBDEV MOBILE - Receber os dados para preencher automatico os dados do email  - Email Botao Envia Codigo - Parte 3 -  Email - 15



Assunto :


Receber os dados para preencher automatico os dados do email 
Vamos receber os emails dos destinatarios, separados por ;
Vamos ler esse email recebidos e colocar no token edt destinatario
Vamos receber o assunto e colocar no edt assunto 
vamos receber a mensagem e colocar na mensagem htmedt
Vamos receber o anexo e colocar na tabela anexo

--------------------- Codigo do Email - 
PROCEDURE WIN_email_envio(gRecebe_destinatarios,gRecebe_assunto,gRecebe_mensagem,gRecebe_anexo)
//destinatarios vai vir email,separados por virgula,vamos ler cada um e colocar no edt_destinatario 
//amarildo.matos@gmail.com;amarildo@tgssistemas.com
FOR EACH STRING sEmail_destinatario IN gRecebe_destinatarios SEPARATED BY ";"
EditAddToken(EDT_destinatario,sEmail_destinatario,sEmail_destinatario)
END
EDT_Assunto=gRecebe_assunto // vamos receber assunto 
HTMEDT_email.Value=gRecebe_mensagem // vamos receber mensagem
// Vamos agora receber os anexos, separados por ; e colocar na tabela anexo
FOR EACH STRING sAnexo_linha IN gRecebe_anexo SEPARATED BY ";"
TABLE_anexo.AddLine(sAnexo_linha)
END

------------------- 


// btn_envio_email
s_Remetente is string = "" // Email de quem esta mandando
s_Usuario is string = "" // Usuario do email
s_sEnha is string = ""
s_Porta is string = 587
s_servidor_smtp is string = ""
s_tls_configuracao is string = "2"
s_modo_parametro is string=""
// Variaveis de parametro
IF s_modo_parametro="1" THEN
EmailConfigure(emailParameterMode,1)
END
EmailSetTimeOut(30)
HourGlass()

bEmail_sessao is boolean
SWITCH s_tls_configuracao
CASE 1
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionSecuredTLS)
CASE 2
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta)
CASE 3
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,optionSSL)
CASE 4
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionSecuredTLS)
CASE 5
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,optionSSL)
CASE 6
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True)
CASE 7
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False)
CASE 8
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionDefault)
CASE 9
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionDefault)
END
// Opcoes //1 - TSL Sincrono       //2 - Sem criptografia            //3 - SSL Sincrono 3 //4 - TSL Assincrono
          //5 - SSL Assincrono     //6 - Sem Criptografia Assincrono //7 - Sem Criptografia Sincrono
          //8 - Default Assincrono //9 - Default Sincrono 
IF bEmail_sessao=True THEN
minha_mensagem is Email 
minha_mensagem..Sender=s_Remetente
FOR EACH STRING sEmail_individual IN EDT_destinatario SEPARATED BY CR
Add(minha_mensagem..Recipient,sEmail_individual)
END
minha_mensagem..Subject=EDT_Assunto
nTipoemailpersonalizado is int=2
IF nTipoemailpersonalizado=0 THEN
minha_mensagem..Message=HTMEDT_email
ELSE IF nTipoemailpersonalizado=1 THEN
minha_mensagem..HTML=HTMEDT_email
ELSE IF nTipoemailpersonalizado=2 THEN
HTMLEditorToEmail(HTMEDT_email,minha_mensagem)
END
FOR EACH ROW OF TABLE_anexo
sAnexo is string=NoSpace(TABLE_anexo.COL_Anexo)
EmailLoadAttachment(minha_mensagem,sAnexo)
END
IF EmailSendMessage(s_Usuario,minha_mensagem)=False THEN
Info(ErrorInfo(errFullDetails))
ELSE
InfoWithTimeout(300,"Email enviado com Sucesso")
END
EmailCloseSession(s_Usuario)
ELSE
Info(ErrorInfo(errFullDetails))
END
HourGlass(False)



---------------------- Indice Email 

EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2
DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13

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



PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 





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











às

Nenhum comentário:

Postar um comentário