Enviando e-mail pelo Oracle
Quarta-feira, 04 de Maio de 2005

Para envio de e-mails pelo Oracle usamos a package UTL_SMTP.
Abaixo segue uma procedure, toda comentada, que recebe parâmetros
e envia uma mensagem por e-mail utilizando esta UTL_SMTP.

CREATE OR REPLACE PROCEDURE PR_ENVIA_EMAIL(
pREMETENTE      IN  VarChar2,
pDESTINATARIO   IN  VarChar2,
pASSUNTO       IN  VarChar2,
pMENSAGEM       IN  Varchar2) IS
-----------
-- pREMETENTE = E-mail de quem está enviando.
-- pDESTINATARIO = Quem ira receber
-- pAssunto = Assunto da mensagem
-- pMensagem = Uma tabela de memória com as linhas do corpo
--                   da mensagem. Pode ser um texto HTML
mailhost VARCHAR2(30) := 'localhost'; -- nome ou ip do servidor SMTP
mailport NUMBER(4)    :=25;           -- Porta smtp
mail_conn utl_smtp.connection;

BEGIN
     -- Abrir Conexão com Servidor SMTP
     mail_conn := utl_smtp.open_connection(mailhost, mailport);
     -- Procedimento para iniciar E-mail.
     utl_smtp.helo(mail_conn,mailhost);
     -- Define Remetente
     utl_smtp.mail(mail_conn,pREMETENTE);
     -- Define Destinatário
     utl_smtp.rcpt(mail_conn,pDESTINATARIO);
     -- Define Mensagem
     utl_smtp.Data(mail_conn,pMENSAGEM);
     -- Encerra conexão com Servidor SMTP
     utl_smtp.quit(mail_conn);
END;