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 = ‘[email protected]
SET @RecipientAddress= ‘[email protected]
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

Latest Articles