SQL2000存储过程发送电子邮件-SQL2000|存储过程|发送电子邮件|java开发平台|.net开发平台|web开发平台
2011-03-14 11:00
417 查看
Create PROCEDURE sys_sendmail @From varchar(100) , @To varchar(100) , @Bcc varchar(500), @Subject varchar(400)=" ", @Body ntext =" "
AS
Declare @object int
Declare @hr int
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', 'smtp.163.com'
--下面三条语句是smtp验证,如果服务器需要验证,则必须要这三句,你需要修改用户名和密码
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'
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, '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
RETURN @object
END
PRINT 'success'
EXEC @hr = sp_OADestroy @object
GO
方正飞鸿智能信息平台 www.founderfix.com
AS
Declare @object int
Declare @hr int
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', 'smtp.163.com'
--下面三条语句是smtp验证,如果服务器需要验证,则必须要这三句,你需要修改用户名和密码
EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'
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, '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
RETURN @object
END
PRINT 'success'
EXEC @hr = sp_OADestroy @object
GO
方正飞鸿智能信息平台 www.founderfix.com
相关文章推荐
- 微信公共服务平台开发(.Net 的实现)7-------发送图文消息
- 微信公共服务平台开发(.Net 的实现)8-------处理图片(上传下载发送)
- 微信公共服务平台开发(.Net 的实现)8-------处理图片(上传下载发送)
- 微信公共服务平台开发(.Net 的实现)3-------发送文本消息
- 深度解析:J2EE vs .NET开发平台 - java060515的专栏 - CSDNBlog
- 快速开发平台ES2007在UISCRIPT数据列表插入自定义按钮及按钮事件|JAVA开发平台|web开发平台
- C#.NET 大型通用信息化系统集成快速开发平台 4.1 版本 - 忘记密码功能改进、手机短信、电子邮件
- 微信公共服务平台开发(.Net 的实现)7-------发送图文消息
- 微信公共服务平台开发(.Net 的实现)8-------处理图片(上传下载发送)
- 微信公共服务平台开发(.Net 的实现)7-------发送图文消息
- 微信公共服务平台开发(.Net 的实现)8-------处理图片(上传下载发送)
- 微信公共服务平台开发(.Net 的实现)8-------处理图片(上传下载发送)
- 软件开发平台正在面临一次重大的升级,java, net比起来简直弱爆了,新型的Html5+JS+JSON开发平台正在形成
- C#.NET 大型通用信息化系统集成快速开发平台 4.1 版本 - 发送通知功能改进改进
- 微信公共服务平台开发(.Net 的实现)3-------发送文本消息
- 微信公共服务平台开发(.Net 的实现)3-------发送文本消息
- 微信公共服务平台开发(.Net 的实现)3-------发送文本消息
- BPM开发平台关于流程加签功能说明|java开发平台|.net开发平台
- 微信公共服务平台开发(.Net 的实现)3-------发送文本消息
- ES2007平台小技巧|方正中间件|java报表|工作流引擎|web开发|动态表单|.NET开发平台