CREATE PROCEDURE SendMail(  
@From varchar(255),    
@To varchar(255),   
@Message varchar(8000),   
@Subject varchar(255))  
 AS   
  
DECLARE @CDO int, @OLEResult int, @Out int   
  
--Create CDONTS.NewMail object   
EXECUTE @OLEResult = sp_OACreate 'CDONTS.NewMail', @CDO OUT   
IF @OLEResult <> 0 PRINT 'CDONTS.NewMail'   
  
  
EXECUTE @OLEResult = sp_OASetProperty @CDO, 'BodyFormat', 0   
EXECUTE @OLEResult = sp_OASetProperty @CDO, 'MailFormat', 0   
  
--Call Send method of the object   
execute @OLEResult = sp_OAMethod @CDO, 'Send', Null, @From, @To, @Subject, @Message, 1 --0 is low 1 is normal   
IF @OLEResult <> 0 PRINT 'Send'   
  
--Destroy CDO   
EXECUTE @OLEResult = sp_OADestroy @CDO   
  
return @OLEResult