Sending Email in Your Own Store Procedure

>>Script Language and Platform: SQL Server 2000
This SQL code can be ran from the SQL Editor or included in a stored procedure which can run as a job in SQL Server 2000 to send automated email when a certain event occurs. (Management | SQL Server Agent | jobs )
You need to have SMTP running on the Server.

Author: Mario Levesque

DECLARE @SenderAddress varchar(100)

DECLARE @RecipientAddress varchar(100)

DECLARE @Subject varchar(200)

DECLARE @Body varchar(8000)

DECLARE @oMail int –Object reference

DECLARE @resultcode int

SET @SenderAddress = ‘someone@someisp.com’

SET @RecipientAddress= ‘someone@someisp.net’

SELECT @Subject = ‘subject of email for today ‘ + CAST(getdate() AS varchar(12))

SET  @Body = ‘This is the body of my email’
EXEC @resultcode = sp_OACreate ‘CDONTS.NewMail’, @oMail OUT

IF @resultcode = 0

BEGIN

   EXEC @resultcode = sp_OASetProperty @oMail, ‘BodyFormat’, 0

   EXEC @resultcode = sp_OASetProperty @oMail, ‘MailFormat’, 0

   EXEC @resultcode = sp_OASetProperty @oMail, ‘Importance’, 1

   EXEC @resultcode = sp_OASetProperty @oMail, ‘From’,

@SenderAddress

   EXEC @resultcode = sp_OASetProperty @oMail, ‘To’,

@RecipientAddress

   EXEC @resultcode = sp_OASetProperty @oMail, ‘Subject’,

@Subject

   EXEC @resultcode = sp_OASetProperty @oMail, ‘Body’, @Body

   EXEC @resultcode = sp_OAMethod @oMail, ‘Send’, NULL

   EXEC sp_OADestroy @oMail

END

Disclaimer: We hope that the information on these script pages is
valuable to you. Your use of the information contained in these pages,
however, is at your sole risk. All information on these pages is provided
“as -is”, without any warranty, whether express or implied, of its accuracy,
completeness, or fitness for a particular purpose…

Disclaimer Continued

Back to Database Journal Home