Home » Developer & Programmer » Reports & Discoverer » Rdf i want to send through mail. (HP Unix, Reports 6i)
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


Previous Topic: Posting Date
Next Topic: Report parameter
Goto Forum:
  


Current Time: Mon Jul 01 07:01:51 CDT 2024