Enviando e-mails com PL/SQL em Bancos de Dados Oracle - Parte 2

Olá pessoal,

     Dando continuidade ao artigo Enviando e-mails com PL/SQL em Bancos de Dados Oracle, irei compartilhar nesta 2a. parte, uma package chamada PKG_ENVIA_EMAIL, que eu desenvolvi para facilitar o trabalho de envio de e-mails com ou sem anexo. Essa package internamente utiliza a package UTL_MAIL para enviar mensagens sem anexo e a package UTL_SMTP para enviar mensagens com anexo do tipo texto. O objetivo de criá-la foi o de padronizar o código de envio de e-mails na empresa em que eu trabalho e facilitar o envio de e-mails com anexos maiores que 32K, pois não é muito fácil utilizar a package UTL_SMTP para essa finalidade (para mais informações sobre este assunto, leia a 1a. parte do artigo).

   

     O package PKG_ENVIA_EMAIL pode ser baixado a partir de um script protegido com senha (para recebê-la assine a newsletter que encontra-se no painel direito deste blog.) e que está disponível para download em arquivo compactado, no link script_pkg_envia_email.zip. O package pode ser instalada e utilizada em qualquer schema de usuário de um SGBD Oracle, desde que sejam atendidos os pré-requisitos especificados na 1a. parte deste artigo.

     O package PKG_ENVIA_EMAIL contém 1 função e 2 stored procedures:

           - FC_GERAR_ARRAY_STRING:
               Função privada que permite gerar array para separar destinatários e enviar o e-mail para múltiplos destinatários.quando necessário.

           - SP_ENVIAR_EMAIL:
               Stored Procedure pública que pode ser utilizada para enviar e-mails sem anexo. Utiliza internamente a package UTL_MAIL.

           - SP_ENVIAR_EMAIL_COM_ANEXO:
               Stored Procedure pública que pode ser utilizada para enviar e-mails COM anexo do tipo texto. Utiliza internamente a package UTL_SMTP e permite enviar somente 1 anexo por e-mail.
           
     Se você precisar mandar outros tipos de anexos, tais como arquivos de vídeo ou som, e/ou precisar mandar mais de 1 arquivo texto anexo, crie nova(s) procedure(s) com sobrecarga dentro da package PKG_ENVIA_EMAIL, incluindo o código necessário para executar essas tarefas. Para isso, você precisará estudar, em detalhes, como utilizar a package UTL_SMTP.

     Para enviar um e-mail sem anexo, execute a stored procedure SP_ENVIAR_EMAIL, como no exemplo abaixo:

   BEGIN
    PKG_ENVIA_EMAIL.SP_ENVIAR_EMAIL (P_ASSUNTO => 'Assunto do e-mail', 
       P_MSG => 'Mensagem', 
       P_EMAIL_ORIGEM => 'oracle@oracle.com', 
       P_EMAIL_DESTINO => 'fbifabio@gmail.com, jack@oracle.com',
       P_EMAIL_CC_DESTINO => 'ze@oracle.com, jo@oracle.com',
       P_EMAIL_CCO_DESTINO => null);
   END;

     Para enviar um e-mail com anexo do tipo texto, execute a stored procedure SP_ENVIAR_EMAIL_COM_ANEXO, como no exemplo abaixo:

   DECLARE
     v_CLOB CLOB;
   BEGIN
    PKG_ENVIA_EMAIL.SP_ENVIAR_EMAIL_COM_ANEXO (P_ASSUNTO => 'Assunto do e-mail',
       P_MSG => 'Mensagem', 
       P_EMAIL_ORIGEM => 'oracle@oracle.com', 
       P_EMAIL_DESTINO => 'fbifabio@gmail.com, jack@oracle.com',     
       P_EMAIL_CC_DESTINO => 'ze@oracle.com, jo@oracle.com', 
       P_EMAIL_CCO_DESTINO => null,
       P_FILENAME => 'arquivo.txt',
       P_ANEXO => v_CLOB,  -- variável CLOB c/ texto do arquivo
       P_ATTACH_MIME => 'text/plain; charset=iso-8859-1', 
       P_SMTP_SERVER => 'smtp.empresa.com.br',
       P_SMTP_PORT => 25);
   END;



Bom pessoal, por hoje é só!

[]s