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
