Sending mail through SQL Stored proceduare

Sending mail through SQL Stored proceduare

@SenderNm varchar(100),
@Senderemail varchar(100),
@RecipientNm varchar(100),
@Recipientemail varchar(100),
@Subject varchar(200),
@Body varchar(8000)AS
SET nocount on 
declare @oMail int --Object reference
declare @resultcode int
EXEC @resultcode = sp_OACreate 'CDONTS.NewMail', @oMail OUT 
if @resultcode = 0
 BEGIN 
  EXEC @resultcode = sp_OASetProperty @oMail, 'From', @Senderemail
  EXEC @resultcode = sp_OASetProperty @oMail, 'To', @Recipientemail 
  EXEC @resultcode = sp_OASetProperty @oMail, 'Subject', @Subject
  EXEC @resultcode = sp_OASetProperty @oMail, 'Body', @Body
  EXEC @resultcode = sp_OAMethod @oMail, 'Send', NULL
  EXEC sp_OADestroy @oMail
 END 
SET nocount off