在sql server中用存储过程发送邮件

DECLARE @object int

DECLARE @hr int

EXEC   @hr=sp_OACreate 'CDONTS.NewMail',@object OUT

EXEC   @hr=sp_OASetProperty @object,'From','Your Friend'

EXEC   @hr=sp_OASetProperty @object,'Body','This is a test'

EXEC   @hr=sp_OASetProperty @object,'Subject','Test of CDONTS' 

EXEC   @hr=sp_OASetProperty @object,'To','somebody@somewhere.com'

EXEC   @hr=sp_OAMethod @object,'send',NULL

EXEC   @hr=sp_OADestroy @object

GO