Sending mail problems -- help

Question

hello all,
I have two databases one in a DMZ and one that is not call it (local)
On local I have created a mail procedure that can send mail to users.
The same procedure does not work on the machine in the DMZ.
I thought it might have something to do with being in the DMZ
so I created an account in microsoft express and sent my self a message which I recieved.
Any help on why I can't get the database procedure to work would be apprecieated.
<<<<<<Code Below >>>>
CREATE OR REPLACE PROCEDURE "CFULLER"."MAIL" ( TOPERSON IN
VARCHAR2,FROMPERSON IN VARCHAR2,MESSAGE IN VARCHAR2)
IS
mailhost VARCHAR2(64) := '[email protected];
recipient VARCHAR2(64) := TOPERSON;
sender VARCHAR2(64) := FROMPERSON;
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.open_data(mail_conn);
utl_smtp.write_data(mail_conn,MESSAGE);
utl_smtp.write_data(mail_conn,'Mail host'||mailhost);
utl_smtp.write_data(mail_conn,'get_user: ' || wwctx_api.get_user );
     utl_smtp.write_data(mail_conn,'get_user_id: ' || to_char(wwctx_api.get_user_id));
utl_smtp.write_data(mail_conn,'get_db_user: ' || wwctx_api.get_db_user);
utl_smtp.write_data(mail_conn,'get_product_version: ' || wwctx_api.get_product_version );
utl_smtp.write_data(mail_conn,'get_product_schema: ' || wwctx_api.get_product_schema);
utl_smtp.write_data(mail_conn,'logged_on: ' || to_char(wwctx_api.logged_on));
utl_smtp.write_data(mail_conn,'get_sessionid: ' || wwctx_api.get_sessionid);
utl_smtp.write_data(mail_conn,'get_login_time: ' ||to_char(wwctx_api.get_login_time,'MM/DD/YYYY HH24:MI:SS'));
utl_smtp.write_data(mail_conn,'get_ip_address: ' || wwctx_api.get_ip_address);
utl_smtp.write_data(mail_conn,'get_nls_language: ' || wwctx_api.get_nls_language);
utl_smtp.write_data(mail_conn,'get_public_user: ' || wwctx_api.get_public_user);
utl_smtp.write_data(mail_conn,'get_sso_schema: ' || wwctx_api.get_sso_schema);
utl_smtp.write_data(mail_conn,'get_proxy_server: ' || wwctx_api.get_proxy_server);
utl_smtp.write_data(mail_conn,'get_image_path: ' || wwctx_api.get_image_path);
utl_smtp.write_data(mail_conn,'get_proc_path: ' || wwctx_api.get_proc_path ( 'home', 'portal30'));
utl_smtp.write_data(mail_conn,'get_server_protocol: ' || wwctx_api.get_server_protocol );
utl_smtp.write_data(mail_conn,'get_sso_proc_protocol: ' || wwctx_api.get_sso_proc_path ('home', 'portal30_sso' ));
utl_smtp.write_data(mail_conn,'get_server_name: ' || wwctx_api.get_server_name );
utl_smtp.write_data(mail_conn,'get_dad_name: ' || wwctx_api.get_dad_name );
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
EXCEPTION
WHEN utl_smtp.INVALID_OPERATION then
DBMS_OUTPUT.PUT_LINE ( 'INVALID_OPERATION : '|| sqlcode ) ;
WHEN utl_smtp.TRANSIENT_ERROR then
DBMS_OUTPUT.PUT_LINE ( 'TRANSIENT_ERROR : '|| sqlcode ) ;
WHEN utl_smtp.PERMANENT_ERROR then
DBMS_OUTPUT.PUT_LINE ( 'PERMANENT_ERROR : '|| sqlcode ) ;
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE ( 'Others : '|| sqlcode ) ;
end mail
;

Answer 1

The only thing I am getting for output is a value of 1
If I comment out the portal api calls in this message it works fine.
I am going to pass these values in a function call to a variable and concatenate them.
I wish there was a example of tieing the utl_smpt mail functionality with the portal environment.
This make life a lot easier to know what the person was doing when they had the problem.
crf