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