On Sep 3, 8:55 am, Michael Moore <
michaeljmo...@gmail.com> wrote:
> try
> c := UTL_SMTP.open_connection( 'localhost', 25 );
The procedure, which worked OK for the last few years (I've obscured
the ip address), is:
/*START SEND_MAIL PROCEDURE*/
PROCEDURE SEND_MAIL(PRECIPIENT IN VARCHAR2,PSUBJECT IN
VARCHAR2,PMESSAGE IN VARCHAR2)
IS
MAILHOST CONSTANT VARCHAR2(30) := 'xxx.xx.xxx.x';
CRLF CONSTANT VARCHAR2(2):= CHR(13) || CHR(10);
MESG VARCHAR2(1000);
PSENDER VARCHAR2(255);
TOADDRESS VARCHAR2(500);
MAIL_CONN UTL_SMTP.CONNECTION;
BEGIN
SELECT CXSENDEREMAIL INTO PSENDER FROM TXDRUGGLOBALS;
MAIL_CONN := UTL_SMTP.OPEN_CONNECTION(MAILHOST, 25);
MESG := 'DATE: ' ||TO_CHAR( SYSDATE, 'DD MON YY HH24:MI:SS') ||
CRLF ||'FROM: '|| PSENDER || CRLF ||'SUBJECT: '|| PSUBJECT || CRLF
||'TO: '||TOADDRESS || CRLF || '' || CRLF || PMESSAGE;
UTL_SMTP.HELO(MAIL_CONN, MAILHOST);
UTL_SMTP.MAIL(MAIL_CONN, '<'||PSENDER||'>');
UTL_SMTP.RCPT(MAIL_CONN, '<'||PRECIPIENT||'>');
UTL_SMTP.DATA(MAIL_CONN, MESG);
UTL_SMTP.QUIT(MAIL_CONN);
DBMS_OUTPUT.PUT_LINE('MAIL SENT SUCESSFULLY.');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/*END SEND_MAIL PROCEDURE*/