|
08.12.2020, 12:23
#40025547
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Санкт-Петербург
Сообщения: 1 103
Рейтинг:
0
/ 0
|
|
|
|
Отправляю письма с помощью хр. процедуры на 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.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
create or replace procedure P_SEND_EMAIL (
smtp_server IN VARCHAR2,
smtp_port IN INTEGER,
smtp_auth IN VARCHAR2,
smtp_login IN VARCHAR2,
smtp_password IN VARCHAR2,
sender IN VARCHAR2,
recipient IN VARCHAR2,
subject IN VARCHAR2,
message IN VARCHAR2
)
as
position NUMBER;
position_old NUMBER;
recipient_item VARCHAR2(100);
mail_conn utl_smtp.connection;
raw_subject RAW(1000) := utl_raw.cast_to_raw(substr(convert(subject,'CL8MSWIN1251'),1,1000));
raw_message RAW(32000) := utl_raw.cast_to_raw(convert(message,'CL8MSWIN1251'));
begin
if recipient is not null then
-- установка соединения
mail_conn := utl_smtp.open_connection(smtp_server, smtp_port);
-- подтверждение установки связи
utl_smtp.helo(mail_conn, smtp_server);
-- авторизация
if smtp_auth is not null then
utl_smtp.command(mail_conn, smtp_auth);
utl_smtp.command(mail_conn, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(smtp_login))));
utl_smtp.command(mail_conn, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(smtp_password))));
end if;
-- установка адреса отправителя
utl_smtp.mail(mail_conn,'<' || sender || '>');
-- установка адреса получателя
position := 0;
position_old := 0;
LOOP
position := INSTR(recipient, ',', position + 1, 1);
IF (position = 0)
THEN
IF (position_old > 0)
THEN
recipient_item := SUBSTR(recipient, position_old + 1);
utl_smtp.rcpt(mail_conn,'<' || LTRIM(recipient_item) || '>');
END IF;
EXIT;
ELSE
recipient_item := SUBSTR(recipient, position_old + 1, position - position_old - 1);
utl_smtp.rcpt(mail_conn,'<' || LTRIM(recipient_item) || '>');
END IF;
position_old := position;
END LOOP;
IF (position_old = 0)
THEN
recipient_item := recipient;
utl_smtp.rcpt(mail_conn,'<' || LTRIM(recipient_item) || '>');
END IF;
-- отправка команды data, после которой можно начать передачу письма
utl_smtp.open_data(mail_conn);
-- отправка заголовков письма: дата, "от", "кому", "тема"
utl_smtp.write_data(mail_conn, 'From:' || sender || utl_tcp.CRLF);
utl_smtp.write_data(mail_conn, 'To:' || recipient || utl_tcp.CRLF);
utl_smtp.write_raw_data(mail_conn, utl_raw.cast_to_raw('Content-Type: text/html; charset="windows-1251"'||utl_tcp.CRLF));
utl_smtp.write_data(mail_conn, 'Subject:');
utl_smtp.write_raw_data(mail_conn, raw_subject);
-- текст письма для почтового сервера
utl_smtp.write_data(mail_conn, utl_tcp.CRLF);
utl_smtp.write_data(mail_conn, utl_tcp.CRLF); --не указывается кодировка
utl_smtp.write_raw_data(mail_conn, raw_message);
-- передача сигнала о завершении передачи сообщения
utl_smtp.close_data(mail_conn);
-- завершение сессии и закрытие соединения с сервером
utl_smtp.quit(mail_conn);
end if;
EXCEPTION
-- Если SMTP сервер недоступен, соединение с сервером отсутствует.
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(mail_conn);
raise_application_error(-20000, 'Failed to send mail due to the following error: ' || sqlerrm);
WHEN OTHERS THEN
raise_application_error(-20001, 'The following error has occured: ' || sqlerrm);
end P_SEND_EMAIL;
|
|
|
