Exemplo de disparo de e-Mail via AdvPL

Hoje vou mostrar um disparo de e-Mail com texto para avisar alguns usuários via AdvPL.

Antes de mais nada, o ideal é baixar o fonte zEnvMail, disponível através desse link – https://terminaldeinformacao.com/2017/10/17/funcao-dispara-e-mail-varios-anexos-em-advpl/.

Após isso, no exemplo abaixo, nós criamos uma função chamada zMailForn, e iremos chamar ela dentro do ponto de entrada u_M020INC().

No código fonte, montamos um texto simples com informações do fornecedor criado, e enviamos um email para a revisão do cadastro, confira abaixo (lembre-se de alterar a variável cEmails).

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zMailForn
Ponto de Entrada após a inclusão do Fornecedor, para disparo de e-Mail para contabilidade
@author Atilio
@since 21/05/2018
@version 1.0
@type function
@obs, colocar a chamada dentro do p.e. M020INC
/*/

User Function zMailForn()
	Local aArea   := GetArea()
	Local aAreaA2 := SA2->(GetArea())
	Local cEmails := "email@empresa.com"
	Local cCorpo  := ""
	Local cCodUsr := RetCodUsr()
	Local cNomUsr := UsrRetName(cCodUsr)
	Local cTitulo := "Novo Fornecedor, Revisar Cadastro"
	
	//Monta o corpo do e-Mail que será enviado
	cCorpo := ''
	cCorpo += ' <html>' + CRLF
	cCorpo += ' <head>' + CRLF
	cCorpo += ' 	<title>' + cTitulo + '</title>' + CRLF
	cCorpo += ' </head>' + CRLF
	cCorpo += ' <body>' + CRLF
	cCorpo += ' 	<center><h1>' + cTitulo + '</h1></center>' + CRLF
	cCorpo += ' 	Hoje, o usuário <b>' + Alltrim(cNomUsr) + '</b> incluiu um novo fornecedor no Sistema, abaixo os detalhes do Fornecedor:<br>' + CRLF
	cCorpo += ' 	<br>' + CRLF
	cCorpo += ' 	<b>Código do Fornecedor:</b> ' + SA2->A2_COD      + '<br>' + CRLF
	cCorpo += ' 	<b>Loja do Fornecedor:</b> '   + SA2->A2_LOJA     + '<br>' + CRLF
	cCorpo += ' 	<b>CNPJ:</b> '                 + SA2->A2_CGC      + '<br>' + CRLF
	cCorpo += ' 	<b>Razao Social:</b> '         + SA2->A2_NOME     + '<br>' + CRLF
	cCorpo += ' 	<b>Nome Fantasia:</b> '        + SA2->A2_NREDUZ   + '<br>' + CRLF
	cCorpo += ' 	<b>Endereco:</b> '             + SA2->A2_END      + '<br>' + CRLF
	cCorpo += ' 	<b>Bairro:</b> '               + SA2->A2_BAIRRO   + '<br>' + CRLF
	cCorpo += ' 	<b>Estado:</b> '               + SA2->A2_EST      + '<br>' + CRLF
	cCorpo += ' 	<b>Codigo do Municipio:</b> '  + SA2->A2_COD_MUN  + '<br>' + CRLF
	cCorpo += ' 	<b>Municipio:</b> '            + SA2->A2_MUN      + '<br>' + CRLF
	cCorpo += ' 	<b>CEP:</b> '                  + SA2->A2_CEP      + '<br>' + CRLF
	cCorpo += ' 	<b>Telefone:</b> '             + SA2->A2_TEL      + '<br>' + CRLF
	cCorpo += ' 	<b>Conta Contábil:</b> '       + SA2->A2_CONTA    + '<br>' + CRLF
	cCorpo += ' 	<br>' + CRLF
	cCorpo += ' 	<br>' + CRLF
	cCorpo += ' 	--<br>' + CRLF
	cCorpo += ' 	<font size="1">e-Mail gerado automaticamente pelo Protheus - ' + dToC(Date()) + ' - ' + Time() + '</font><br>' + CRLF
	cCorpo += ' </body>' + CRLF
	cCorpo += ' </html>' + CRLF
	
	//Chama o disparo do e-Mail
	u_zEnvMail(cEmails, cTitulo, cCorpo, {}, .F.)
	
	RestArea(aAreaA2)
	RestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

Deixe uma resposta