/****** Object:  StoredProcedure [dbo].[sp_CS_send_private_cdosysmail]    Script Date: 05/23/2008 09:56:57 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE sp_CS_send_private_cdosysmail
	@From varchar(100) ,
	@To varchar(100) ,
	@Subject varchar(100)=" ",
	@Body varchar(4000) =" "
	/*********************************************************************

	This stored procedure takes the parameters and sends an e-mail.
	All the mail configurations are hard-coded in the stored procedure.
	Comments are added to the stored procedure where necessary.
	References to the CDOSYS objects are at the following MSDN Web site:
	http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp

	***********************************************************************/
AS BEGIN
	Declare @iMsg int
	Declare @hr int
	Declare @source varchar(255)
	Declare @description varchar(500)
	Declare @output varchar(1000)

	-- set the SMTPServer by name or IP
	Declare @SMTPServer varchar(255)
	set @SMTPServer = 'electra'
	--

	--************* Create the CDO.Message Object ************************
	EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT

	--***************Configuring the Message Object ******************
	-- This is to configure a remote SMTP server.
	-- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp
	EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'

	-- This is to configure the Server Name or IP address.
	EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @SMTPServer

	-- Save the configurations to the message object.
	EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null

	-- Set the e-mail parameters.
	EXEC @hr = sp_OASetProperty @iMsg, 'To', @To

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

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

	-- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'.
	EXEC @hr = sp_OASetProperty @iMsg, 'HTMLBody', @Body

	-- Send the email allready...
	EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL
END

EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/exchange/sensitivity").Value', '2'