SQL SERVER 2000发邮件的存储过程
来源:互联网 发布:室内设计师证书知乎 编辑:程序博客网 时间:2024/05/01 16:14
CREATE PROCEDURE [dbo].[send_mail]
@From varchar(1000) , --发件人
@To varchar(1000) , --收件人
@Subject nvarchar(128)='', --标题
@Body nvarchar(4000) ='' --正文
with encryption
/*********************************************************************
This stored procedure takes the parameters and sends an e-mail.
All the mail configurations are hard-coded in the stored procedure.
Comments are added to the stored procedure where necessary.
References 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 @smtpserver varchar(200)
Declare @sendusername varchar(200)
Declare @sendpassword varchar(200)
--please set the values before excute the stored procedure
set @smtpserver = 'smtp.163.com' --smtp服务器
set @sendusername = ''--发送认证:用户名
set @sendpassword = ''--发送认证:密码
if @sendusername='' or @sendpassword=''
begin
raiserror 50000 'please set the @sendusername and @sendpassword values before excute the stored procedure'
return -1
end
--replace the quotation marks
set @Subject=replace(@Subject,'''','''''')
set @Body=replace(@Body,'''','''''')
--************* 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', @smtpserver
--
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value', @sendusername
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value', @sendpassword
-- Save the configurations to the message object.
EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null
-- 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
if @@error<>0 or @hr<>0
begin
raiserror 55000 '<send_mail> Error: send mail failed.'
end
else
begin
print 'Success: send mail ok.'
end
EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
IF @hr = 0
BEGIN
SELECT @output = '<send_mail> Error Source: ' + @source
PRINT @output
SELECT @output = '<send_mail> Error Description: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' sp_OAGetErrorInfo failed.'
RETURN
END
-- Do some error handling after each step if you have to.
-- Clean up the objects created.
EXEC @hr = sp_OADestroy @iMsg
GO
- SQL SERVER 2000发邮件的存储过程
- SQL Server 存储过程的建立和使用---以发邮件为例
- 存储过程发邮件
- sql server 发邮件
- SQL Server 存储过程发送邮件
- 利用SQL Server发邮件
- 利用SQL Server发邮件
- SQL SERVER自动发邮件
- Sql server 发邮件功能
- SQL发邮件过程代码
- SQL Server 2000存储过程的编写
- sql server 2000的分页存储过程
- SQL Server的存储过程
- sql server的存储过程
- sql server的存储过程
- SQL server 2000存储过程
- SQL server 2000存储过程
- 在sql server中用存储过程发送邮件
- ORACLE用户自动被锁解决方法
- 命名规则
- 关于Report.rdlc的使用
- SQL语句合集
- 深刻理解Linux进程间通信(IPC)
- SQL SERVER 2000发邮件的存储过程
- [JavaScript]JavaScript实现级联样式表,更换风格!
- CSS实例:无懈可击的CSS圆角技术
- 深入CACHE
- 有了钱
- 堆和栈的区别
- servlet 实现页面跳转的两种方法
- C# 16进制与字符串、字节数组之间的转换
- cxGridDBTableView运行期自由调节行高