Проблема в следующем: есть процедура, она формировала отчет-напоминание и отсылала по почте. Использовала
xp_smtp_sendmail (у меня
SQL2000 ). Отчет выгружался с помощью bcp в файл и процедура брала текст из файла. Тело отчета - в html. xp_smtp_sendmail. Проблем не было.
Через некоторое время на smtp-сервере установили запрет на отсылку без авторизации. Пришлось переползти на
CDO.Message . Отсылка заработала, но возникла проблема:
Воспроизвести на серверной стороне загрузку тела письма из файла не удалось. Стал вызывать процедуру через exec + конкатенация строк (как
тут ).
Текст процедуры, отпраляющей почту :
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.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
IF EXISTS (SELECT name
FROM sysobjects
WHERE name = N'cp_send_cdosysmail'
AND type = 'P')
DROP PROCEDURE cp_send_cdosysmail
GO
/*********************************************************************
См. ссылку CDOSYS objects по следующему адресу MSDN Web site:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp
***********************************************************************/
CREATE PROCEDURE dbo.cp_send_cdosysmail
@SMTPServerName VARCHAR( 100 ),
@username varchar( 100 ),
@password varchar( 100 ),
@Charset varchar( 10 )='koi8-r', --'unicode',
@To VARCHAR( 100 ),
@From VARCHAR( 100 ),
@Subject NVARCHAR( 100 )=" ",
@Body ntext=" ",
@CC VARCHAR( 100 )=NULL,
@BCC VARCHAR( 100 )=NULL
AS
SET NOCOUNT ON
DECLARE @iMsg INTEGER, @hr INTEGER, @source VARCHAR( 255 ), @description VARCHAR( 500 ), @output VARCHAR( 1000 ),
@iFile integer, @authtype int, @res int
set @authtype = 1 -- clear text; OAbASIC
--SET @SMTPServerName='192.168.1.3' -- Указываем имя или IP-адрес SMTP-сервера, например, 'localhost'
if @Charset is null
set @Charset='koi8-r'
--set @Charset='unicode'
EXEC @hr=sp_OACreate 'CDO.Message', @iMsg OUT
-- Конфигурируем удалённый SMTP-сервер:
-- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp
-- 1=значит отсылка сообщения будет осуществляться через локальный SMTP-сервер
-- 2=значит отсылка сообщения будет осуществляться через SMTP-сервер домена
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @SMTPServerName
EXEC @hr=sp_OAMethod @iMsg, 'Configuration.Fields.Update', null -- Устанавливаем конфигурацию message-объекта
EXEC @hr=sp_OASetProperty @iMsg, 'To', @To
EXEC @hr=sp_OASetProperty @iMsg, 'From', @From
EXEC @hr=sp_OASetProperty @iMsg, 'CC', @CC
EXEC @hr=sp_OASetProperty @iMsg, 'BCC', @BCC
EXEC @hr=sp_OASetProperty @iMsg, 'Subject', @Subject
-- !!!! далее - война с кодировкой
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("urn:schemas:mailheader:content-language").Value', @Charset
EXEC @hr=sp_OASetProperty @iMsg, 'HTMLBodyPart.Charset', @Charset
EXEC @hr=sp_OASetProperty @iMsg, 'HTMLBodyPart.CODEPAGE', 20866
if not (@username is null) and not (@password is null)
begin
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value', @authtype -- тип аутентификации
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value', @username -- имя пользователя
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value', @password -- пароль
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname").Value', @username -- имя пользователя
end
-- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'.
EXEC @hr=sp_OASetProperty @iMsg, 'HTMLBody', @Body
EXEC @hr=sp_OAMethod @iMsg, 'Send', NULL
-- Если указан НЕкорректный e-mail адрес, то будет возвращён код 2147220977.
-- Если указан НЕкорректное имя MAIL Server-а, то будет возвращён код -2147220973
/*
IF @hr <>0
SELECT @hr
BEGIN
*/
EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
set @res = @hr
/*
IF @hr=0
BEGIN
SELECT @output = ' Источник: ' + @source
PRINT @output
SELECT @output = ' Описание: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' p_OAGetErrorInfo ошибка!'
print @hr
END
--END
*/
EXEC @hr = sp_OADestroy @iMsg
RETURN @res
go
В заголовке html кодировка так же указывается.
Кодировка устанавливается (комментарий, помеченный
-- !!!! в коде). Т.к. она одна, case для определения кодовой страницы писать я не стал.
Проблема в следующем : физически письмо приходит в кодировке koi-8. При вызове формирующей процедуры из QA все работает. При вызове процедуры через job c вероятностью примерно 40% приходят знаки вопроса, в остальных случаях письма приходят корректные.
В качестве клиента используется в компании
The Bat ! и менять это не хотелось бы.
Т.к. штатный запуск - раз в сутки, хотелось бы это побороть...
Пример с отдельным OLE-объектом для зачитывания тела письма из файла на vbscript я нашел, но - непонятно, можно ли получить ответ от одной
sp_OASetProperty и скормить его другой... Хотя - тогда тело было бы в unicode, как bcp формирует, и проблема была бы решена.
