SQLServer自定义邮件发送存储过程

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