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.
