Tengo un procedure que envia mails desde el oracle utilizando SMTP , haciendo las pruebas me dejo de funcionar de un dia para el otro
, cuando lo ejecuta no me da ningun error y me muestra el cartelito de que se ejecuto correctamente.. pero a mi nunca me llega el mail :S .. probe apuntando a vairas direcciones, probe apuntando al SMTP gratutio que tengo, y a un SMTP en otro servidor y lo mismo!! Alguien sabe que puede estar pasando?CREATE OR REPLACE PROCEDURE Mail_2
(
sender IN VARCHAR2,
recipient IN VARCHAR2,
ccrecipient IN VARCHAR2,
subject IN VARCHAR2,
message IN VARCHAR2
) IS
crlf VARCHAR2(2):= Utl_Tcp.CRLF;
connection Utl_Smtp.connection;
mailhost VARCHAR2(30) := '192.168.2.30';
header VARCHAR2(1000);
BEGIN
-- Start the connection.
connection := Utl_Smtp.open_connection(mailhost,26);
header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
'From: '||sender||''||crlf||
'Subject: '||subject||crlf||
'To: '||recipient||crlf||
'CC: '||ccrecipient;
-- Handshake with the SMTP server
Utl_Smtp.helo(connection, mailhost);
Utl_Smtp.Mail(connection, sender);
Utl_Smtp.rcpt(connection, recipient);
Utl_Smtp.rcpt(connection, ccrecipient);
Utl_Smtp.open_data(connection);
-- Write the header
Utl_Smtp.write_data(connection, header);
Utl_Smtp.write_data(connection, crlf ||message);
Utl_Smtp.close_data(connection);
Utl_Smtp.quit(connection);
EXCEPTION
WHEN Utl_Smtp.INVALID_OPERATION THEN
Dbms_Output.put_line(' Invalid Operation in SMTP transaction.');
WHEN Utl_Smtp.TRANSIENT_ERROR THEN
Dbms_Output.put_line(' Temporary problems with sending email - try again
later.');
WHEN Utl_Smtp.PERMANENT_ERROR THEN
Dbms_Output.put_line(' Errors in code for SMTP transaction.');
END;
/
