CREATE   PROCEDURE sp_send_cdosysmail 
	@From varchar( 100 ),
	@To varchar( 100 ) ,
	@Subject nvarchar( 100 )= " " ,
	@Body text =  " " ,
	@attachment varchar( 100 ) = null,
	@isHTML bit =  0 
AS
DECLARE @iMsg int
DECLARE @hr int
DECLARE @SMTP nvarchar( 255 )
SET @SMTP = '!!! smtp_server'

EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT

EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value',@SMTP 

EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null

EXEC @hr = sp_OASetProperty @iMsg, 'To', @To
EXEC @hr = sp_OASetProperty @iMsg, 'From', @From
EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject

if @attachment is not null
EXEC @hr = sp_OAMethod @iMsg,'AddAttachment', NULL, @attachment

if @isHTML = 1  
	begin
		EXEC @hr = sp_OASetProperty @iMsg, 'HtmlBody', @Body
	end
else 
	begin
		EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body
	end
EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL
if @hr <>  0 
begin
	EXEC @hr = sp_OADestroy @iMsg
	return  1 
end
else
begin
	EXEC @hr = sp_OADestroy @iMsg
	return  0 
end