Oracle 读取指定的数据到Txt文档,并且以附件的形式发到邮件里面,用Job实现

存储过程如下:

 

create or replace procedure Builddata_toEmail(COMPANY_NAME IN VARCHAR2)
is
filename1 VARCHAR2(20);
date_select VARCHAR2(10);
begin
  -- Call the procedure
  --运行存储过程 得到日报4
  date_select:=to_char(sysdate,'yyyy-MM-dd');
  pro_storeinforeport(date_select);
  write_txt(COMPANY_NAME,filename1);
  dbms_output.put_line(filename1);
  /*
   procsendemail('hello',
                '新的邮件1',
                'jhtchina@163.com',
                'jhtchina@163.com',
                'smtp.163.com',
                25,
                1,
                'jhtchina',
                '密码',
                LL,
                'bit 7');
  */ 
end Builddata_toEmail;

 

写文本文件 存储过程参考: http://www.cnblogs.com/jhtchina/articles/1390053.html

发送邮件存储过程参考: http://www.cnblogs.com/jhtchina/articles/1390076.html

Job代码(每天23:30:30运行)

 

begin
  sys.dbms_job.submit(job => :job,
                      what => 'begin
Builddata_toEmail(''有限公司'');
end;',
                      next_date => to_date('13-02-2009 23:30:30', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'trunc(sysdate)+23/24+30/24/60+30/24/60/60');
  commit;
end;
/

 

 

BEGIN
  DBMS_SCHEDULER.create_job (
    job_name        => 'my_ykt_job',
    job_type        => 'PLSQL_BLOCK',
    job_action      => 'BEGIN  存储过程名称; END;', -- 这里放置你的作业逻辑
    start_date      => sysdate,
    repeat_interval => 'FREQ=DAILY; BYHOUR=2; BYMINUTE=0; BYSECOND=0', -- 每天凌晨2点执行
    enabled         => TRUE,
    comments        => 'ykt info synchronization');
END;
/