Example

The following code example illustrates how the SMTP package might be used by an application to send email. The application connects to an SMTP server at port 25 and sends a simple text message.

PROCEDURE send_mail (sender    IN VARCHAR2, 

                     recipient IN VARCHAR2, 

                     message   IN VARCHAR2)

IS

    mailhost    VARCHAR2(30) := 'mailhost.mydomain.com';
    mail_conn  utl_smtp.connection;



BEGIN

    mail_conn := utl_smtp.open_connection(mailhost, 25);

    utl_smtp.helo(mail_conn, mailhost);

    utl_smtp.mail(mail_conn, sender);

    utl_smtp.rcpt(mail_conn, recipient);

    utl_smtp.data(mail_conn, message);

    utl_smtp.quit(mail_conn);

EXCEPTION

    WHEN OTHERS THEN

        -- Handle the error

END;

The UTL_TCP package provides PL/SQL procedures to support...