How send mail from forms 10g

Question

hi all,
can any help in this,
i want send a mail from forms 10g,how???
thanx in advace,
chands

Answer 1

hi,
my oracle version is 10.1.0.4.2
this is my code....
PROCEDURE Send_Mail_001 (sender IN VARCHAR2,
recipient IN VARCHAR2,
subject IN VARCHAR2,
message IN VARCHAR2)
IS
mailhost VARCHAR2(30) := '10.192.30.12';
mail_conn utl_smtp.connection;
TEST VARCHAR2(100);
crlf VARCHAR2(2):= CHR( 13 ) || CHR( 10 );
mesg VARCHAR2(2000);
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);
mesg:= 'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf ||
'From: ' || sender || crlf ||
'To: ' || recipient || crlf ||
'Subject: '|| subject || crlf;
mesg:= mesg || ' ' || crlf || crlf || message ||'.' || crlf || '.'|| crlf;
UTL_SMTP.OPEN_DATA(mail_conn);
utl_smtp.write_data (mail_conn, mesg);
/* body of email with multiple
utl_smtp.write_data (v_mail_conn, v_message);
call to write_data
utl_smtp.write_data (mail_conn, mesg);
UTL_SMTP.CLOSE_DATA(mail_conn);
utl_smtp.quit(mail_conn);
premia_wf_log('mail','hi');
EXCEPTION
WHEN OTHERS THEN
premia_wf_log('mail',sqlerrm);
END;
can u help me in this..........
thanx in advance
chands