domingo, 18 de abril de 2021

DICAS 3309 - WINDEV WEBDEV MOBILE - Email Botao Envia Codigo - Parte 3 - Email - 15






https://youtu.be/HdLnAXyfK3E




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 19/04/2021 

DICAS 3309 - WINDEV WEBDEV MOBILE - Email Botao Envia Codigo - Parte 3 -  Email - 15



Assunto :


Codigo do Envia Email 
Testar Envia Email 

---------------------  Codigo 

// HTMEDT_NoName1 - trocar o nome 
// Envia Email

//Configuracao
s_Remetente is string = ""
s_Usuario is string = ""
s_sEnha is string = ""
s_Porta is string = 587
s_servidor_smtp is string = ""
s_modo_parametro is string = ""
s_tls_configuracao is string = "2"

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

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

IF bEmail_sessao=True THEN
minha_mensagem is Email 
IF EDT_Remetente<>"" THEN
minha_mensagem..Sender=EDT_Remetente
END
FOR EACH STRING email_individual IN EDT_destinatario SEPARATED BY CR
Add(minha_mensagem..Recipient,email_individual)
END
minha_mensagem..Subject=EDT_Assunto
gnTipoEmailPersonalizado is int = 2
IF gnTipoEmailPersonalizado=0 THEN // 0-Message 1=Html
minha_mensagem..Message = HTMEDT_NoName1
ELSE IF gnTipoEmailPersonalizado=1
minha_mensagem..HTML = HTMEDT_NoName1
ELSE IF gnTipoEmailPersonalizado=2
HTMLEditorToEmail(HTMEDT_NoName1,minha_mensagem) // nao sai imagen
END
FOR EACH ROW OF TABLE_anexo
sAnexo is string=NoSpace(TABLE_anexo.COL_Anexo)
WHEN EXCEPTION IN 
EmailLoadAttachment(minha_mensagem,sAnexo)
DO
END
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)





// Comandos enviar

ToastDisplay("Enviado email com sucesso",toastLong,vaMiddle)

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
















Teste

Teste
teste