Utilização de xml no banco

[jspaulonciParticipante]

Meu amigo Vieri, obrigado pela atenção mais uma vez, mas é o seguinte,

A minha procedure que envia e-mail é assim
CREATE OR REPLACE PROCEDURE PRC_ENVIA_EMAIL
( P_MESSAGE IN VARCHAR2, P_EMAIL_ORIG IN VARCHAR2,P_EMAIL_DEST IN VARCHAR2,P_ASSUNTO IN VARCHAR2)
IS
/* Constantes */
cSMTP_SERVER CONSTANT VARCHAR2(30) :=’10.216.36.15′;
cSMTP_SERVER_PORT CONSTANT NUMBER := 25;
CRLF CONSTANT VARCHAR2(2) := chr(13) || chr(10);
cMENSAGEM CONSTANT VARCHAR2(32767) := ‘Date: ‘ || TO_CHAR( SYSDATE, ‘dd Mon yy hh24:mi:ss’ ) || CRLF ||
‘From: ‘ || P_EMAIL_ORIG || CRLF ||
‘Subject: ‘ || P_ASSUNTO || CRLF ||
‘To: ‘ || P_EMAIL_DEST || CRLF ||
‘Mime-Version: 1.0’ || CRLF ||
‘Content-Type: multipart/mixed; boundary=”DMW.Boundary.605592468″‘ || CRLF ||
‘–DMW.Boundary.605592468’ || CRLF ||
‘Content-Type: text/plain; name; charset=US-ASCII’ || CRLF ||
‘Content-Disposition: inline; filename’ || CRLF ||
‘Content-Transfer-Encoding: 7bit’ || CRLF ||
” || CRLF;

/* Variáveis */
CONN UTL_SMTP.CONNECTION;
vMESG VARCHAR2(32767);
vMESG_LEN NUMBER;
vCONTINUE BOOLEAN := TRUE;

BEGIN

/* Abrindo Conexão SMTP e HTTP */
CONN := UTL_SMTP.OPEN_CONNECTION( cSMTP_SERVER, cSMTP_SERVER_PORT );

/* Comunicando SMTP */
UTL_SMTP.HELO( CONN, cSMTP_SERVER );
UTL_SMTP.MAIL( CONN, P_EMAIL_DEST );
UTL_SMTP.RCPT( CONN, P_EMAIL_DEST );
UTL_SMTP.OPEN_DATA ( CONN );

/* Criando Cabeça do E-mail /
vMESG := cMENSAGEM || P_MESSAGE || CRLF;
UTL_SMTP.WRITE_DATA ( CONN, vMESG );
/ Fechando a Cabeça do E-mail /
vMESG := CRLF || ‘Secretaria da Fazenda’ ||’ – ‘||to_char(sysdate,’dd/mm/yyyy hh24:mi:ss’)|| CRLF;
UTL_SMTP.WRITE_DATA( CONN, vMESG );
/ Fechando conexão SMTP */
UTL_SMTP.CLOSE_DATA( CONN );
UTL_SMTP.QUIT( CONN );
END;

Preciso fazer alguma adaptação nela ?

Abraços