Windev21 Aulas,Estudos e Desenvolvimento: AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6

segunda-feira, 6 de novembro de 2017

AULA 1282 PROGRAMA DE EMAIL .EXE PARA COMUNIDADE EMAIL 6

emailllllllllllllllllllll emailllllllllllllllllllll

VIDEO YOUTUBE EMAIL

HELP EMAIL

s_xml is string=[
<?xml version="1.0" encoding="UTF-8"?>
<email_matos>
<mandar_email>
<licenca_matos>licenca</licenca_matos>
<email_destinatario>#email_destinatario#</email_destinatario>
<assunto>#assunto#</assunto>
<mensagem>#mensagem#</mensagem>
#anexo#
</mandar_email>
<dados_email_emitente>
<razao_social_nome>#razao_social_nome#</razao_social_nome>
<cnpj_cpf>#cnpj_cpf#</cnpj_cpf>
<licenca_matos>#licenca_matos#</licenca_matos>
<email_emitente>#email_emitente#</email_emitente>
<usuario>#Usuario#</usuario>
<senha>#senha#</senha>
<servidor_smtp>#servidor_smtp#</servidor_smtp>
<porta>#porta#</porta>
<Criptografia>#Criptografia#</Criptografia>
<email_resposta>#email_resposta#</email_resposta>
<emailParameterMode>#emailParameterMode#</emailParameterMode>
</dados_email_emitente>
</email_matos>
]

s_xml=Replace(s_xml,"#Usuario#",EDT_USUARIO)
s_xml=Replace(s_xml,"#servidor_smtp#",EDT_SMTP)
s_xml=Replace(s_xml,"#porta#",EDT_PORTA)
s_xml=Replace(s_xml,"#Usuario#",EDT_USUARIO)
s_xml=Replace(s_xml,"#senha#",EDT_SENHA)
//senha opciona// se nao informar a senha aqui,
//vai pedir a senha na hora de mandar email
s_xml=Replace(s_xml,"#Criptografia#",RADIO_Tls)
s_xml=Replace(s_xml,"#emailParameterMode#",RADIO_eMAIL_CONFIGURE)
s_xml=Replace(s_xml,"#email_resposta#",EDT_EMAIL_RESPOSTA)
s_xml=Replace(s_xml,"#email_emitente#",EDT_EMAIL)
s_xml=Replace(s_xml,"#email_destinatario#",EDT_EMAIL_DESTINATARIO)
s_xml=Replace(s_xml,"#assunto#",EDT_ASSUNTO)
s_xml=Replace(s_xml,"#mensagem#",EDT_MENSAGEM)
_anexo is string=""
IF EDT_ANEXO_1<>"" THEN
_anexo+="<anexo_email>"+EDT_ANEXO_1+"</anexo_email> "
END
IF EDT_ANEXO_2<>"" THEN
_anexo+="<anexo_email>"+EDT_ANEXO_2+"</anexo_email> "
END
s_xml=Replace(s_xml,"#anexo#",_anexo)
s_xml=Replace(s_xml,"#licenca_matos#",EDT_licenca)
s_xml=Replace(s_xml,"#razao_social_nome#",EDT_razao_social_nome)
s_xml=Replace(s_xml,"#cnpj_cpf#",EDT_cnpj_cpf)
EDT_xml=s_xml

// CHAMAR O EMAIL

bStarted is boolean
// Starts the application
bStarted = ExeRun("email_matos.exe "+EDT_xml)

IF ErrorOccurred THEN
Error()
END

Esse programa nao terá custo para
Ajudar a comunidade ate ser resolvido
no Windev 21 e caso
queira fazer doação por achar que
esse programa foi bom para voces,
entre em contato com email ou skype
email: amarildo@matosinformatica.com.br
skype: amarildo.matos.informatica
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

EDT_Text1=[
Pedir Licenca:

Informe No Email:

email do emitente
Razao Social ou Nome
Cnpj ou Cpf

Mandar email
amarildo@matosinformatica.com.br
skype: amarildo.matos.informatica

]