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)
