Tenho o bloco PLSQL abaixo listado , o email é enviado mas o arquivo que deveria ir anexado chega vazio no email de destino.
Envia um arquivo existente , não ?
O que estou fazendo de errado ?
Grato
declare
ds_email_origem_w varchar2(30);
ds_email_destino_p varchar2(30);
ds_assunto varchar2(50);
p_attach_clob CLOB;
p_attach_file varchar2(50);
/* envio de email com blobs */
l_step PLS_INTEGER := 4000;--12000;
ds_smtp_w varchar2(20) := '10.19.1.xx';--informo o ip correto
--ds_user_id_w varchar2(50) := 'envio_email';
--ds_senha_smtp_w varchar2(50) := '@@@@@@@';
/* Abre conex?o SMTP e HTTP */
CONEXAO UTL_SMTP.CONNECTION;
vs_origem char(25) := '[email protected]';
BEGIN
ds_email_origem_w := '';
ds_email_destino_p := '[email protected]';
ds_assunto := 'teste attach ' || to_char(sysdate,'yymmddhh24mi');
for r in (select coluna from tabela) --prencher o email de teste
loop
p_attach_clob := ' ' || p_attach_clob || r.coluna;
end loop;
/* Abre conex?o com um Servidor SMTP(Simple Mail Transfer Protocol), porta padr?o SMTP e 25 */
CONEXAO := utl_smtp.open_connection (ds_smtp_w,25);
UTL_SMTP.HELO (CONEXAO, ds_smtp_w); /* Endereco do servidor de SMTP */
--utl_smtp.command (CONEXAO, 'AUTH LOGIN');
--utl_smtp.command (CONEXAO, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw((ds_user_id_w)))));
--UTL_SMTP.COMMAND (CONEXAO, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW((DS_SENHA_SMTP_W)))));
UTL_SMTP.MAIL (CONEXAO, ('<' || vs_origem || '>')); /* E-mail de quem esta mandando */
UTL_SMTP.RCPT (CONEXAO, ('<' || ds_email_destino_p || '>')); /* Para quem vou mandar */
UTL_SMTP.OPEN_DATA(CONEXAO);
UTL_SMTP.WRITE_DATA(CONEXAO,'Subject'|| ': ' || ds_assunto || utl_tcp.CRLF);
UTL_SMTP.write_data(
CONEXAO,
'Content-Disposition: attachment; filename="'
|| 'lmeu_arquivo.txt' --arquivo que existe na pasta UTL padrão
|| '"'
|| UTL_TCP.crlf
);
--UTL_SMTP.WRITE_DATA(CONEXAO, utl_tcp.CRLF || ds_mensagem_p);
FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(p_attach_clob) - 1 )/l_step)
LOOP
UTL_SMTP.WRITE_DATA(CONEXAO, /*utl_tcp.CRLF || */ DBMS_LOB.substr(p_attach_clob, l_step, i * l_step + 1));
END LOOP;
UTL_SMTP.CLOSE_DATA(CONEXAO);
UTL_SMTP.QUIT (CONEXAO);
Exception
when OTHERS then
utl_smtp.quit (conexao);
RAISE_APPLICATION_ERROR(-20011,'Nao foi possivel enviar o e-mail devido ao seguinte erro: ' || SQLERRM);
END;