0

我正在尝试将查询结果作为电子邮件正文通过电子邮件发送。我正在使用 2 个存储过程来完成此操作。第一个存储过程是一个示例电子邮件代码，因为 SQL Server 2000 没有像 SQL Server 2005 和 SQL Server 2008 那样的内置发送邮件功能。

以下是我目前所拥有的存储过程：我声明@Body，然后分配给运行以下查询@Body的存储过程getpaidout1929( )。Exec @Body = sp_getpaidout1929

SELECT        Store_Id, Paid_Out_Amount, Paid_Out_Comment, Paid_Out_Datetime, Update_UserName
FROM            Paid_Out_Tb
WHERE        (Store_Id = 1929) AND (Paid_Out_Amount > 50) AND (Paid_Out_Datetime BETWEEN CONVERT(DATETIME, '2012-06-01 00:00:00', 102) AND CONVERT(DATETIME, 
                         '2012-06-30 00:00:00', 102))

然后我执行存储过程。

Exec sp_SQLNotify ‘to@who.com', ‘who@who.com, ‘test’

它发送电子邮件，但0作为正文消息。

Create PROCEDURE [dbo].[sp_SQLNotify] 
   @From varchar(100) ,
   @To varchar(100) ,
   @Subject varchar(100)=" "
   
/*********************************************************************

This stored procedure takes the above parameters and sends an e-mail. 
All of the mail configurations are hard-coded in the stored procedure. 
Comments are added to the stored procedure where necessary.
Reference to the CDOSYS objects are at the following MSDN Web site:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp

***********************************************************************/ 
   AS
   Declare @iMsg int
   Declare @hr int
   Declare @source varchar(255)
   Declare @description varchar(500)
   Declare @output varchar(1000)
   Declare @Body Varchar (8000)
   


--************* Create the CDO.Message Object ************************
   EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT

--***************Configuring the Message Object ******************
-- This is to configure a remote SMTP server.
-- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp
   EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
-- This is to configure the Server Name or IP address. 
-- Replace MailServerName by the name or IP of your SMTP Server.
   EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', '10.0.1.3' 

-- Save the configurations to the message object.
   EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null
   Exec @Body = sp_getpaidout1929

-- Set the e-mail parameters.
   EXEC @hr = sp_OASetProperty @iMsg, 'To', @To
   EXEC @hr = sp_OASetProperty @iMsg, 'From', @From
   EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject

-- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'.
   EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body
   EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL

-- Sample error handling.
   IF @hr <>0 
     select @hr
     BEGIN
       EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
       IF @hr = 0
         BEGIN
           SELECT @output = '  Source: ' + @source
           PRINT  @output
           SELECT @output = '  Description: ' + @description
           PRINT  @output
         END
       ELSE
         BEGIN
           PRINT '  sp_OAGetErrorInfo failed.'
           RETURN
         END
     END

-- Do some error handling after each step if you need to.
-- Clean up the objects created.
   EXEC @hr = sp_OADestroy @iMsg
   
   PRINT 'Mail Sent!'

GO
4

1 回答 1

0

你检查过执行存储过程的语法吗？如果你这样做：

exec @foo = dbo.SomeProc

然后@foo包含过程的返回状态，在这种情况下为零表示成功。

而且 SQL 2000 确实内置了 email，因此您可以将存储过程执行字符串作为@query参数传递，以避免必须自己将结果集转换为标量值。

您还应该考虑使用 Perl、PowerShell 等语言编写的外部脚本，因为使用纯 TSQL 方法格式化和通过电子邮件发送数据既不简单也不灵活。

于 2012-07-13T18:18:57.527 回答