Всем доброго дня!
Сломал себе голову, мне необходимо отправлять результат запроса на соответствующий email с помощью процедуры в pl/sql
Процедура ниже
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
procedure unica_sms_report_forward
as
p_to VARCHAR2(30) := 'vasya@yandex.ru;
p_from VARCHAR2(30) := 'oracle@yandex.ru';
p_subject VARCHAR2(300) := 'Ежедневный отчет';
p_text_msg VARCHAR2(50) := 'Сформирован новый отчет';
p_attach_name VARCHAR2(50) := 'Отчет по доставленным смс '|| TO_CHAR(SYSDATE, 'DD-MON-YYYY') ||'.xls';
p_attach_mime VARCHAR2(200) := 'application/octet-stream';
p_attach_clob CLOB := 'Наименование компании'||chr(9)||'Дата формирования'||chr(9)||'Сформированные смс на'||chr(9)||'Доставлено';
p_smtp_host VARCHAR2(30):= 'mail.yandex.ru' ; --'192.168.110.230'; -- local database host
p_smtp_port NUMBER DEFAULT 25;
l_mail_conn UTL_SMTP.connection;
l_boundary VARCHAR2(50) := '----=*#abc1234321cba#*=';
l_step PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573
BEGIN
siebel.ts_ops.unica_sms_report_created;
-- запись выгрузки в переменную p_attach_clob
for x in (select campaign_name||chr(9)||created_dt||chr(9)|| formed_sms||chr(9)|| delivered as str from siebel.unica_sms_report
where created_dt > trunc(sysdate) - 30)
loop
p_attach_clob := p_attach_clob || chr(13) || x.str;
end loop;
p_attach_clob := p_attach_clob || ' ';
--Подключение к хосту
l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port);
UTL_SMTP.helo(l_mail_conn, p_smtp_host);
UTL_SMTP.mail(l_mail_conn, p_from);
UTL_SMTP.rcpt(l_mail_conn, p_to);
--Наполнение письма
UTL_SMTP.open_data(l_mail_conn);
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Date: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('To: ' || p_to || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('From: ' || p_from || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Subject: ' || p_subject || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('MIME-Version: 1.0' || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Content-Type: multipart/mixed; charset="windows-1251"; boundary="' || l_boundary || '"' || UTL_TCP.crlf || UTL_TCP.crlf));
IF p_text_msg IS NOT NULL THEN
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('--' || l_boundary || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Content-Type: text/plain; charset="windows-1251"' || UTL_TCP.crlf || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw( p_text_msg));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw(UTL_TCP.crlf || UTL_TCP.crlf));
END IF;
IF p_attach_name IS NOT NULL THEN
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('--' || l_boundary || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Content-Type: ' || p_attach_mime || '; name="' || p_attach_name || '"' || UTL_TCP.crlf));
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw('Content-Disposition: attachment; filename="' || p_attach_name || '"' || UTL_TCP.crlf || UTL_TCP.crlf));
FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(p_attach_clob) - 1)/l_step) LOOP
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw(DBMS_LOB.substr(p_attach_clob, l_step, i * l_step + 1)));
END LOOP;
UTL_SMTP.write_raw_data(l_mail_conn, UTL_RAW.cast_to_raw(UTL_TCP.crlf || UTL_TCP.crlf));
END IF;
UTL_SMTP.write_raw_data(l_mail_conn,UTL_RAW.cast_to_raw( '--' || l_boundary || '--' || UTL_TCP.crlf));
UTL_SMTP.close_data(l_mail_conn);
--Отключение от хоста
UTL_SMTP.quit(l_mail_conn);
END;
1)Сама отправка проходит успешно ,файл создается и отсылается, но когда я его пытаюсь открыть в excel 2007, то у меня вылетает ошибка о том, что тип формат открываемого файла не совпадает с расширением файла xls, если нажать да, то файл откроется успешно. Если принудительно выставить в наименование файла расширение xlsx, то файл вообще не открывается(переменная p_attach_name ). Пробовал менять значение переменной p_attach_mime :
-application/vnd.ms-excel
-application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
-NULL
Ничего не помогает
2)Данный отчет необходим "большим людям", а они любят смотреть почту в телефонах и айпадах. У нас в организации мобильным клиентом является IBM Verse(не реклама). Так вот в нем файл с xls вообще открыть нельзя, вероятно из-за ошибки в пункте 1
Помогите пожалуйста.
Всем спасибо!
