SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


CREATE       PROCEDURE [dbo].[sp_sendmail] @From varchar(100), @To varchar(100), @Subject varchar(100), @Body varchar(4000), @CC varchar(100) = null, @BCC varchar(100) = null
AS


declare @oMsg int
declare @oConf int
declare @resultCode int

EXEC @resultCode = sp_OACreate 'CDO.Message', @oMsg OUT

if @resultCode = 0 
begin

	EXEC @resultCode = sp_OASetProperty @oMsg, 'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").value', '2'
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value', 'your.smtp.server'
	if @resultCode <> 0 return @resultCode
	
	EXEC @resultCode = sp_OAMethod @oMsg, 'Configuration.Fields.Update'
	if @resultCode <> 0 return @resultCode


	EXEC @resultCode = sp_OASetProperty @oMsg, 'Subject', @Subject
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'To', @To
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'From',@From
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'TextBody', @Body
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'BCC',@BCC
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OASetProperty @oMsg, 'CC', @CC
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OAMethod @oMsg, 'Send', NULL
	if @resultCode <> 0 return @resultCode

	EXEC @resultCode = sp_OADestroy @oConf
	EXEC @resultCode = sp_OADestroy @oMsg

end

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO