SQL Server发送邮件

转载 2007年09月28日 14:55:00

CREATE PROCEDURE usp_sendmail
(@server varchar(20), --服务器
 @From varchar(1000),
 @To varchar(1000),
 @Bcc varchar(500)='',
 @Subject nvarchar(400)='',
 @Body nvarchar(4000),
 @errnum int output
)
AS

Declare @object int
Declare @hr int

set @errnum=0 --正确的

EXEC @hr = sp_OACreate 'cdo.Message', @object OUT

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @server

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext").Value','1'
--EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/LanguageCode").Value',' 2052'

--下面三条语句是smtp验证,如果服务器需要验证,则必须要这三句,你需要修改用户名和密码
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','0'
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("
http://schemas.microsoft.com/cdo/configuration/sendusername").Value',''
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("
http://schemas.microsoft.com/cdo/configuration/sendpassword").Value',''

--EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value','lihonggen0'
--EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("
http://schemas.microsoft.com/cdo/configuration/sendpassword").Value','xxx'

EXEC @hr = sp_OAMethod @object, 'Configuration.Fields.Update', null
EXEC @hr = sp_OASetProperty @object, 'To', @To
EXEC @hr = sp_OASetProperty @object, 'BodyPart.Charset','GB2312'
EXEC @hr = sp_OASetProperty @object, 'Bcc', @Bcc
EXEC @hr = sp_OASetProperty @object, 'From', @From
EXEC @hr = sp_OASetProperty @object, 'Subject', @Subject

EXEC @hr = sp_OASetProperty @object, 'TextBody',@Body
EXEC @hr = sp_OAMethod @object, 'Send', NULL

--判断出错
IF @hr <> 0
BEGIN
   EXEC sp_OAGetErrorInfo @object 
   set @errnum=@hr
   RETURN @object
END
--PRINT 'success'
EXEC @hr = sp_OADestroy @object

GO

相关文章推荐

sql server 2005 通过存储过程发送邮件

在 sa 系统帐户下运行。 1. 启用 SQL Server 2005 邮件功能。 use mastergo exec sp_configure 'show advanced options',1go...

SQL SERVER2005发送邮件

key:sql server 2005 邮件 sp_configure 'show advanced options', 1; GO RECONFIGURE; GO sp_configure '...

MS SQL Server结果生成HTML表格并发送邮件

配置邮件服务器 在SQL管理器中找到“管理”,在“数据库邮件”上面右键,选择“配置数据库邮件”,如果没有开启,系统会提示开启。 进去之后配置好账户和配置文件 生成HTML表格 ...

SQL Server發送郵件的存儲過程

對於DB中的資料變更,有時會有寄Mail通知相關人員的需求。下面是實現這一功能的一種方法 1.建立發Mail的存儲過程 CREATE PROCEDURE [dbo].[sp_send_mail...

SQL Server 定时发送邮件(从数据库查询出的数据作为附件)

一、准备知识 1、配置数据库邮件功能(SQL Server 2008,貌似Express没有这个功能)               如何配置参考http://blog....

利用SQL SERVER2005发送邮件

原文:http://sqlserver2005.itpub.net/post/22359/210413 早在sql server 2000中可以通过sql mail给指定的邮件地址发邮件。SQL...

SQL SERVER当作业执行失败时发送邮件的设置

SQL SERVER设置发送邮件及作业失败时发送邮件

SQL Server 2012 发送邮件

1.简单了解数据库邮件的概念和使用的传输协议及系统体系:       数据库邮件是从 SQL Server 数据库引擎中发送电子邮件的企业解决方案。通过使用数据库邮件,数据库应用程序可以向用户发...

利用SQL SERVER2005发送邮件

利用SQL SERVER2005发送邮件 早在sql server 2000中可以通过sql mail给指定的邮件地址发邮件。SQL SERVER 2005中我们仍外可以用sql server20...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)