PLSQL_通过UTL_MAIL发送并发程式结果报表至用户邮箱（案例）

 1 DECLARE
 2 
 3    p_request_id   VARCHAR2 := ‘19087352‘;
 4 
 5    l_output       UTL_FILE .file_type ;
 6 
 7    l_file         RAW (32767);
 8 
 9    l_size         NUMBER;
10 
11    BLOCK          NUMBER;
12 
13    b              BOOLEAN;
14 
15 BEGIN
16 
17    UTL_FILE.FGETATTR (‘C_CONC_REQOUT_DIR‘ ,‘C_AP_SPLITTER_R_‘ || p_request_id || ‘_1.PDF‘,
18 
19                                    b,
20 
21                                    l_size ,
22 
23                                    BLOCK);
24 
25  
26 
27    l_output :=  UTL_FILE .fopen (‘C_CONC_REQOUT_DIR‘,  ‘C_AP_SPLITTER_R_‘ || p_request_id || ‘_1.PDF‘,  ‘r‘);
28 
29  
30 
31    UTL_FILE.get_raw (l_output, l_file, l_size);
32 
33  
34 
35    UTL_FILE.fclose (l_output);
36 
37  
38 
39    UTL_MAIL.SEND_ATTACH_RAW (sender         => ‘bao@motorola.com‘,
40 
41                              recipients     => ‘bcrp67@motorola.com‘,
42 
43                              subject        => ‘subject‘,
44 
45                              attachment     => l_file,
46 
47                              MESSAGE        => ‘messge‘,
48 
49                              att_inline     => FALSE,
50 
51                              att_filename   => ‘C_AP_SPLITTER_R_‘ || p_request_id || ‘_1.PDF‘);
52 
53 END;