https://youtu.be/HdLnAXyfK3E
Bom Dia Boa Tarde Boa Noite
Mande um email pedido para receber todas notificaçoes dos videos
email : amarildo.matos@gmail.com
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
EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2
VERIFICA EMAIL - EMAILCHECKADDRESS - EMAIL 4 - AULA 1278
EMAIL-VERIFICA-TRANSFORMEI EM PROCEDURE - EMAIL 5 - AULA 1279
AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6
DICAS 1966 - PUBLICA - WINDEV - EMAIL 7 - ENVIAR EMAIL PELO WINDEV
DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13EMAIL-VERIFICA-TRANSFORMEI EM PROCEDURE - EMAIL 5 - AULA 1279
AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6
DICAS 1966 - PUBLICA - WINDEV - EMAIL 7 - ENVIAR EMAIL PELO WINDEV
=======================
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
