Stored Procedures - send anonymous email over smtp

				

 
 
Anonymous Email over SMTP 
 with SQL Server 2000

 This SP sends an email over SMTP with SQL Server 2000! 

 It need's enough rights and "CDO for Windows 2000"!
 
 
 
 
 


 
CREATE PROCEDURE sp_SMTPemail

(

@From as nvarchar(50),

@To as nvarchar(50),

@Subject as nvarchar(255),

@Body as text 

) 
AS
-- Declare 

 DECLARE @message int

 DECLARE @config int

 DECLARE @hr int

 DECLARE @src varchar(255), @desc varchar(255)
EXEC @hr = sp_OACreate 'CDO.Message', @message OUT 
 -- create the message object

 EXEC @hr = sp_OACreate 'CDO.Configuration', @config OUT -- create 
 the configuration object
-- Configuration Object

 EXEC @hr = sp_OASetProperty @config, 'Fields(cdoSendUsingMethod)', 
 'cdoSendUsingPort' -- Send the message using the network

 EXEC @hr = sp_OASetProperty @config, 'Fields(cdoSMTPServer)', 'your.server.com' 
 -- SMTP Server

 EXEC @hr = sp_OASetProperty @config, 'Fields(cdoSMTPServerPort)', 
 25 -- Server SMTP Port

 EXEC @hr = sp_OASetProperty @config, 'Fields(cdoSMTPAuthenticate)', 
 'cdoAnonymous' -- Anonymous SMTP Authenticate

 EXEC sp_OAMethod @config, 'Fields.Update'
-- Message Object

 EXEC @hr = sp_OASetProperty @message, 'Configuration', @config -- 
 set message.configuration = config

 EXEC @hr = sp_OASetProperty @message, 'To', @To

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

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

 EXEC @hr = sp_OASetProperty @message, 'TextBody', @Body

 EXEC sp_OAMethod @message, 'Send()'
-- Destroys the objects

 EXEC @hr = sp_OADestroy @message

 EXEC @hr = sp_OADestroy @config
-- Errorhandler

 IF @hr <> 0

 BEGIN

 EXEC sp_OAGetErrorInfo @message, @src OUT, @desc OUT 

 SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc

 RETURN

 END

 GO 


 
 
 
 
SQL Example to execute the SP:
 
 
 
EXEC sp_SMTPemail 
'from@example.email.com', 'to@example.email.com', 
'Subjecttext','Messagetext'