Ir al contenido principal

Envio de mail desde oracle. (9i,10g)

Que tal,

Esta noche les paso un script que nos permitira enviar mails desde oracle, este script funciona en la version 9i y en la 10g (por tiempo solo la pude probar en 9i, pero segun san Oracle tambien funciona en 10g, si alguien lo puede corroborar antes que yo se le agradece.)

Este script esta publicado en la pagina de Metalink de Oracle, pero como se que no todo mundo tiene acceso ahí, pues aqui lo comparto con ustedes.

Cabe mencionar que no cualquiera puede llegar a mandar mails desde oracle, el requisito es que tengan un servidor desde el cual puedan hacer SMTP Relay, si no lo saben contacten a su administrador de Exchange que les diga que server pueden usar para esto.

Si van a mandar attachments necesitan crear un directorio para oracle, para que pueda leer el archivo, por ejemplo

create directory 'mi_directorio' as 'c:\logs'


El script para el procedimiento para el envio de mails es el siguiente:


CREATE OR REPLACE PROCEDURE "SYS"."MAIL_FILES" (from_name varchar2,
to_name varchar2,
subject varchar2,
message varchar2,
max_size number default
9999999999,
p_oracle_directory varchar2,
p_binary_file varchar2)
is
v_smtp_server varchar2(100) := 'Servidor de SMTP Relay'; --Cambiar esto por su SMTP Relay
v_smtp_server_port number := 25;
v_directory_name varchar2(100);
v_file_name varchar2(100);
v_line varchar2(1000);
crlf varchar2(2):= chr(13) || chr(10);
mesg varchar2(32767);
conn utl_smtp.connection;
v_slash_pos number;
v_file_handle utl_file.file_type;
invalid_path exception;
mesg_length_exceeded boolean := false;

PROCEDURE write_raw(p_conn in out nocopy utl_smtp.connection,
p_message in raw) is
BEGIN
utl_smtp.write_raw_data(p_conn, p_message);
END write_raw;

PROCEDURE write_mime_header(p_conn in out nocopy utl_smtp.connection,
p_name in varchar2,
p_value in varchar2) is
BEGIN
write_raw(p_conn => p_conn,
p_message => utl_raw.cast_to_raw(p_name || ': ' || p_value || utl_tcp.crlf));
END write_mime_header;

PROCEDURE write_boundary(p_conn in out nocopy utl_smtp.connection,
p_last in boolean default false) AS
BEGIN
if (p_last) then
utl_smtp.write_data(p_conn, '--DMW.Boundary.605592468--'||crlf);
else
utl_smtp.write_data(p_conn, '--DMW.Boundary.605592468'||crlf);
end if;
END write_boundary;

PROCEDURE end_attachment(p_conn in out nocopy utl_smtp.connection,
p_last in boolean default true) IS
BEGIN
utl_smtp.write_data(p_conn, utl_tcp.crlf);
if (p_last) then
write_boundary(p_conn, p_last);
end if;
END end_attachment;

PROCEDURE begin_attachment(p_conn in out nocopy utl_smtp.connection,
p_mime_type in varchar2 default
'text/plain',
p_inline in boolean default false,
p_filename in varchar2 default null,
p_transfer_enc in varchar2 default null) is
BEGIN
write_boundary(p_conn);
if (p_transfer_enc is not null) then
write_mime_header(p_conn, 'Content-Transfer-Encoding',
p_transfer_enc);
end if;
write_mime_header(p_conn, 'Content-Type', p_mime_type);
if (p_filename is not null) then
if (p_inline) then
write_mime_header(p_conn, 'Content-Disposition', 'inline;
filename="' || p_filename || '"');
else
write_mime_header(p_conn,'Content-Disposition', 'attachment;
filename="' || p_filename || '"');
end if;
end if;
utl_smtp.write_data(p_conn, utl_tcp.crlf);
END begin_attachment;

PROCEDURE binary_attachment(p_conn in out utl_smtp.connection,
p_file_name in varchar2,
p_mime_type in varchar2) is
k_max_line_width constant pls_integer default 54;
v_amt binary_integer := 672 * 3; /* ensures proper format; 2016 */
v_bfile bfile;
v_file_len pls_integer;
v_buf raw(2100);
v_modulo pls_integer;
v_pieces pls_integer;
v_file_pos pls_integer := 1;
v_data raw(2100);
v_chunks pls_integer;
BEGIN
begin_attachment(p_conn => p_conn,
p_mime_type => p_mime_type,
p_inline => TRUE,
p_filename => p_file_name,
p_transfer_enc => 'base64');
BEGIN
v_bfile := bfilename(p_oracle_directory, p_file_name);
v_file_len := dbms_lob.getlength(v_bfile);
v_modulo := MOD(v_file_len, v_amt);
v_pieces := TRUNC(v_file_len / v_amt);
if (v_modulo <> 0) then
v_pieces := v_pieces + 1;
end if;
dbms_lob.fileopen(v_bfile, dbms_lob.file_readonly);
dbms_lob.read(v_bfile, v_amt, v_file_pos, v_buf);
v_data := null;
for i in 1 .. v_pieces loop
v_file_pos := I * v_amt + 1;
v_file_len := v_file_len - v_amt;
v_data := utl_raw.concat(v_data, v_buf);
v_chunks := TRUNC(utl_raw.length(v_data) / k_max_line_width);
if (i <> v_pieces) then
v_chunks := v_chunks - 1;
end if;
write_raw(p_conn => p_conn, p_message => utl_encode.base64_encode
(v_data));
v_data := null;
if (v_file_len <> 0) then
v_amt := v_file_len;
end if;
dbms_lob.READ(v_bfile, v_amt, v_file_pos, v_buf);
end loop;
END;
dbms_lob.fileclose(v_bfile);
end_attachment(p_conn => p_conn);
EXCEPTION
when no_data_found then
end_attachment(p_conn => p_conn);
dbms_lob.fileclose(v_bfile);
END binary_attachment;

BEGIN
conn:= utl_smtp.open_connection( v_smtp_server, v_smtp_server_port );
utl_smtp.helo( conn, v_smtp_server );
utl_smtp.mail( conn, from_name );
utl_smtp.rcpt( conn, to_name );
utl_smtp.open_data ( conn );
utl_smtp.write_data(conn, 'Subject: '||subject||crlf);
mesg:= 'Content-Transfer-Encoding: 7bit' || crlf ||
'Content-Type: multipart/mixed;
boundary="DMW.Boundary.605592468"' || crlf ||
'Mime-Version: 1.0' || crlf ||
'--DMW.Boundary.605592468' || crlf ||
'Content-Transfer-Encoding: binary'||crlf||
'Content-Type: text/plain' ||crlf ||
crlf || message || crlf ;
utl_smtp.write_raw_data ( conn, utl_raw.cast_to_raw(mesg) );
binary_attachment(p_conn => conn,
p_file_name => p_binary_file,
p_mime_type => 'text/plain;
name="'||p_binary_file||'"');
utl_smtp.close_data( conn );
utl_smtp.quit( conn );
END;




Espero que les sea util el script.

Saludos.

Fernando Rivas

Comentarios

  1. Que tal Fer, me parece interesante este script, pero no lo he podido usar, me marcar el sgt error, ¿Sabras a que se debera?:

    ORA-22285: non-existent directory or file for GETLENGTH operation
    ORA-06512: at "SYS.DBMS_LOB", line 566
    ORA-06512: at "GINVTSDES.MAIL_FILES", line 86
    ORA-06512: at "GINVTSDES.MAIL_FILES", line 137
    ORA-06512: at line 2

    ResponderEliminar
    Respuestas
    1. Ayuda por favor a mi tambien me saca el mismo error, ya tengo creado el directorio oracle

      Eliminar
  2. Ok, perdon realmete el error esta en que no me deja crear el directorio de oracle ¿Debo tener privilegios de DBA?

    ResponderEliminar
  3. Buenas tardes... he probado este codigo y me funciona muy bien. Como podria hacer para adjuntar varios archivos? gracias de antemano.

    ResponderEliminar
  4. a mi me envia el mensaje, pero no me envia el archivo, podria decirme como puedo hacerlo??

    Envien respuesta a : pablofornes@gmail.com

    ResponderEliminar
  5. Tu codigo no me parece demasiado malo, es de lo mejorcito que he visto, pero hay mucha gente en la red que te agradeceria comentarios entre las lineas.

    ResponderEliminar

Publicar un comentario

Entradas más populares de este blog

Como saber que Service Pack tengo instalado en SQL Server?

Para saber que Service pack se tiene instalado en SQL Server, Hay que ejecutar el siguiente comando:
SELECT SERVERPROPERTY('productversion'), SERVERPROPERTY ('productlevel'), SERVERPROPERTY ('edition')Este regresa algo parecido a:9.00.3042.00 SP2 Enterprise EditionEl primer registro es la versión, el segundo es el nivel de producto (en este caso Service pack 2), y el ultimo es la edición, En este caso Enterprise.
Esta es una tabla con las versiones de SQL y su respectivo Service pack.
RTM SP1SP2SP3SP4SQL Server 2017SQL Server 201613.0.2149.013.0.4001.0SQL Server 201412.0.2000.812.0.4100.112.0.5000.0SQL Server 201211.0.2100.6011.0.3000.0011.0.5058.011.0.6020.011.0.7001.0SQL Server 2008 R210.50.1600.110.50.2500.010.50.4000.010.50.6000.34SQL Server 2008 10.00.1600.2210.00.2531.0010.00.4000.0010.00.5500.0010.0.6000.29SQL Server 20059.00.13999.00.20479.00.30429.00.40359.00.5000SQL Server 20008.00.1948.00.3848.00.5348.00.7608.00.2039SQL Server 7 7.00.623 7.00.…

Monitoreo de espacio libre en discos desde SQL Server

Update: Una nueva opcion, con powershell esta disponible en el siguiente link, recomiendo mas utilizar la nueva y personalizarla de acuerdo a los requerimientos personales. http://dbamex.blogspot.mx/2017/10/revision-de-espacio-en-servidores.html
Post original:
Uno de los principales indicadores que se tiene que tomar en cuenta como DBA es el espacio disponible en disco. No es problema cuando se tiene un server o 2 para monitorear, sin embargo cuando hay una cantidad considerable automatizar un proceso que lo haga es lo mejor.

Dentro de SQL Server (7,2000,2005) hay un procedimiento no documentado que nos puede ayudar a cumplir este cometido.

El procedimiento es XP_FIXEDDRIVES, no lleva parámetros ni nada y nos regresa todos los discos a los que tiene acceso SQL Server y su espacio disponible en Megabytes.
Si esta en cluster mostrara todos los discos aunque los discos no esten en el mismo grupo que la instancia, lo que puede llegar a confundir.
Dejo a consideración de cada quien como …

Memoria utilizada por Oracle

Ocasionalmente al estar trabajando con oracle, algunos clientes
pueden recibir errores de que hace falta memoria, mas sin embargo en el task manager vemos que oracle no esta usando toda la memoria que esta asignada para el proceso.
Esto es por el diseño de los servidores de windows a 32 bits, que solo pueden asignar a una aplicacion alrededor de 2 GB (no recuerdo el numero exacto) y como en windows los procesos de usuarios son en realidad Threads del proceso de oracle, toda la memoria es agrupada bajo el proceso de oracle.

Para ver la memoria realmente usada por oracle podemos utilizar el siguiente query.


select sum(bytes)/1024/1024 Mb from (select bytes from v$sgastat union select value bytes from v$sesstat s, v$statname n where n.STATISTIC# = s.STATISTIC# and n.name = 'session pga memory' );

Este query nos regresa la memoria usada por oracle junto con todos sus procesos de usuario ( y su respectiva…