Rdf i want to send through mail. [message #311623] |
Sat, 05 April 2008 03:11 |
sohailnawazsabir
Messages: 22 Registered: April 2007 Location: Saudi Arabia
|
Junior Member |
|
|
Hi Every one,
I want to do one thing, I have a payslip report. I want to send the softcopy (PDF) through email. i have stored an email in a database table. i am passing empno through parameter, i am facing one problem, I need to be clink manualy on send button. i need automation.
Below is my code.
============================================
PROCEDURE report_printing(curr_report varchar2) IS
pl ParamList;
v_email varchar2(100);
BEGIN
pl := Create_Parameter_List('tmp');
Add_Parameter(pl,'P_EMPNO',TEXT_PARAMETER,:emp.empno);
add_parameter(pl,'destype',text_parameter,'mail');
add_parameter(pl,'desformat',text_parameter,'PDF');
call_variable; ---this is procedure.
add_parameter(pl,'desname',text_parameter,:GLOBAL.V_EMAIL);
add_parameter(pl,'paramform',text_parameter,'NO');
Run_Product(REPORTS,curr_report,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl);
Destroy_Parameter_List(pl);
END;
=====================================================
PROCEDURE call_variable IS
V_EMAIL VARCHAR2(100);
BEGIN
select email into :GLOBAL.V_EMAIL from emp
where empno = :EMP.EMPNO;
END;
==================================
Please help me to achieve this goal.
Thanks & best regards,
Sohail Nawaz
|
|
|