Envia Resultado por E-mail

[drumondParticipante]

Camarada, para fazer isto, eu crio uma procedure dentro da procedure executo este select, dentro de um loop, e para cada Volta no Loop, eu chamo uma chamada para uma outra procedure que eh so para enviar e-mail !! Parece complicado, mas nao eh !!
Ex da procedure SENDMAIL que esta funcionando aqui :
[color=blue]CREATE OR REPLACE PROCEDURE send_mail
( sender IN VARCHAR2,
recipient IN VARCHAR2,
subject IN VARCHAR2,
message IN VARCHAR2,
message2 IN VARCHAR2)
IS
mailhost VARCHAR2(30) := ‘NOME OU IP DO SERVIDOR DE SMTP’;
mailport number(3):= 25;
mail_conn utl_smtp.connection;
crlf VARCHAR2(30) := CHR( 13 ) || CHR( 10 );

mesg VARCHAR2( 1000 );

BEGIN

mesg:= ‘From: ‘ || crlf ||
‘Subject: ‘||subject || crlf ||
‘To: ‘||recipient || crlf ||
‘ ‘||crlf||
‘ ‘||crlf||message||

‘ ‘||crlf||message2;

mail_conn := utl_smtp.open_connection(mailhost, mailport);

utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.data(mail_conn, mesg);

utl_smtp.quit(mail_conn);

Exception
WHEN OTHERS THEN
raise_application_error(-20002,’unable to send the mail.’||SQLERRM);
END;[/color]