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
]
---------------------- Indice Email
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
