Send a mail - URGENT

Question

Hello,
I'm wan't to send a mail from forms but i don't know how to do it.
It's very urgent.
Can you help me????

Answer 1

Below is code that was sent to me that works on sending the e-mail. I am still looking for a way to add an attachment to the e-mail.
SSgt Chris Kaelin, USAF
-- Sample Code --
PROCEDURE OUTLOOK_OLE IS
v_to          VARCHAR2(50) := email-address;
v_sub          VARCHAR2(50) := subject ;
v_cc          VARCHAR2(50);
v_body     VARCHAR2(2000);
hApplication     OLEOBJ;
hMailItem               OLEOBJ;
CURSOR course_data IS
SELECT stu_id,
     INITCAP( stu_first_name ||' '|| stu_mi ||' '|| stu_last_name) AS full_name,
     stu_last_name,
     stu_email,
     stu_org,
     cour_num_name
FROM     ce_certificate_import;
BEGIN
FOR course_rec IN course_data
LOOP
v_body := 'This is a test message';
hApplication := CREATE_OLEOBJ('Outlook.Application',TRUE);
INIT_OLEARGS(1);
ADD_OLEARG(0);
hMailItem := CALL_OLE_OBJ( hApplication, GET_OLE_MEMBERID( hApplication, 'CreateItem'));
SET_OLE( hMailItem, GET_OLE_MEMBERID( hMailItem,'To'), v_to);
IF v_cc IS NOT NULL THEN
SET_OLE(hMailItem, GET_OLE_MEMBERID( hMailItem, 'CC'), v_cc);
END IF;
SET_OLE( hMailItem, GET_OLE_MEMBERID( hMailItem, 'Subject'), v_sub||'-'||course_rec.full_name);
SET_OLE( hMailItem, GET_OLE_MEMBERID( hMailItem, 'Body'), v_body);
CALL_OLE( hMailItem, GET_OLE_MEMBERID( hMailItem, 'Display') );
INIT_OLEARGS(0);
-- Un-Comment these to automatically send the email
-- CALL_OLE(hMailItem, GET_OLE_MEMBERID(hMailItem,'Save'));
-- CALL_OLE(hMailItem, GET_OLE_MEMBERID(hMailItem,'Send'));
END LOOP;
END;