Procedure for Simple Mail from Forms

Question

Hi All,
Is there any procedure to send simple email without
attachment from forms 9i like we have the feature in oracle reports.
1.Not using OLE i mean outlook.
2.Neither calling report.

Answer 1

First you must:
============================================================
v_mailconn utl_smtp.connection;
v_hostname VARCHAR2(64);
v_mailhost VARCHAR2(64):= 'mail.smtphost.com' -- note ***this is not a real mail hostname***
SELECT host_name INTO v_hostname FROM V$INSTANCE;
v_mailhost := v_hostname||'.'||v_mailhost;
v_mailconn := utl_smtp.open_connection(v_mailhost, 25);
utl_smtp.helo (v_mailconn, v_mailhost);
-- next call: se below for procedure
send_mail_to_user(v_mailconn, v_mailhost, p_email, v_subject,
v_message1, v_message2, p_message);
utl_smtp.quit (v_mailconn);
============================================================
PROCEDURE send_mail_to_user (p_mailconn IN OUT utl_smtp.connection,
p_mailhost VARCHAR2, p_email VARCHAR2,
p_subject VARCHAR2, p_message1 VARCHAR2,
p_message2 VARCHAR2, p_message3 VARCHAR2) IS
BEGIN
-- send mail to a single user, assume the connection has already been opened
utl_smtp.mail (p_mailconn, p_mailhost);
utl_smtp.rcpt (p_mailconn, p_email);
utl_smtp.open_data (p_mailconn);
utl_smtp.write_data (p_mailconn,
'To: ' ||'<'||p_email ||'>'|| utl_tcp.crlf ||
'From: ' ||'My Automated EMail System' || utl_tcp.crlf ||
'Subject:'|| p_subject || utl_tcp.crlf ||
'Date:' ||TO_CHAR(NEW_TIME(SYSDATE,'PDT','GMT'),'DD Mon YY HH24:MI:SS')||utl_tcp.crlf);
utl_smtp.write_data (p_mailconn, utl_tcp.crlf || utl_tcp.crlf ||
' -----------------------------------------------' || utl_tcp.crlf ||
' | This is an automatically generated email |' || utl_tcp.crlf ||
' | |' || utl_tcp.crlf ||
' | Do not reply to INFADS Automated EMail System |' || utl_tcp.crlf ||
' -----------------------------------------------' || utl_tcp.crlf ||utl_tcp.crlf);
utl_smtp.write_data (p_mailconn, p_message1 || utl_tcp.crlf || utl_tcp.crlf);
utl_smtp.write_data (p_mailconn, p_message3 || utl_tcp.crlf || utl_tcp.crlf);
utl_smtp.write_data (p_mailconn, p_message2 || utl_tcp.crlf);
utl_smtp.close_data (p_mailconn);
EXCEPTION
WHEN OTHERS THEN
IF SQLCODE = -29279 THEN -- (User Unknown)
NULL;
ELSE
RAISE_APPLICATION_ERROR(-20000, 'send_mail_to_user: '||SQLERRM);
END IF;
END;