Thought of Genius

SQL Server 2000 的 SQL Mail 提供從 Microsoft SQL Server 傳送和讀取電子郵件的簡易方式，但是 SQL Mail 屬於 MAPI 應用程式，所以伺服器上必須出現 MAPI 子系統。如果要使用 SQL Mail，就必須安裝 MAPI 用戶端，例如 ：Microsoft Outlook 或是 Exchange Server。本文件所提及之技術，伺服器可以不必安裝MAPI 子系統，即可發送電子郵件。

我們可以利用 SQL Server OLE Automation 系統預存程序，來呼叫 CDOSYS 物件模型，並搭配任何支援 SMTP 郵件的郵件伺服器，作為自己的遠端 SMTP 郵件伺服器，來達到寄送電子郵件的功能。

<br />-- If this store procedure exists, drop this store procedure<br />IF (EXISTS (SELECT * FROM sys.procedures WHERE name = N'usp_cdosys_sendmail')) DROP PROCEDURE usp_cdosys_sendmail<br />GO<br />-- Create store procedure<br />CREATE PROCEDURE usp_cdosys_sendmail<br /> @From varchar(100) ,<br /> @To varchar(100) ,<br /> @Subject varchar(100)=" ",<br /> @Body varchar(4000) =" "<br />AS<br /> DECLARE @iMsg int<br /> DECLARE @SMTPServer varchar(100)<br /> DECLARE @SendUserName varchar(100)<br /> DECLARE @SendPassword varchar(100)<br /> DECLARE @hr int<br /> DECLARE @source varchar(255)<br /> DECLARE @description varchar(500)<br /> DECLARE @output varchar(1000)<br /> -- This is a sample. Please input your smtp server name or IP address<br /> SET @SMTPServer='mail.com.tw'<br /> -- If smtp server uses authentication, please input your email address and email password. If does not, pass this option.<br /> SET @SendUserName='admin@mail.com.tw '<br /> SET @SendPassword='Password'<br /><br /> -- Create the CDO.Message Object<br /> EXEC sp_OACreate 'CDO.Message', @iMsg OUT<br /> -- Configure a remote SMTP server.<br /> EXEC sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'<br /> -- Configure the Server Name or IP address.<br /> EXEC sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value',@SMTPServer<br /> -- SMTP Authentication<br /> IF NOT (@SendUserName='' and @SendPassword='')<br /> BEGIN<br /> EXEC sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'<br /> EXEC sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value',@SendUserName<br /> EXEC sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value',@SendPassword<br /> END<br /> -- Save the configurations to the message object<br /> EXEC sp_OAMethod @iMsg, 'Configuration.Fields.Update', null<br /> -- Set the e-mail parameters<br /> EXEC sp_OASetProperty @iMsg, 'From', @From<br /> EXEC sp_OASetProperty @iMsg, 'To', @To<br /> EXEC sp_OASetProperty @iMsg, 'Subject', @Subject<br /> EXEC sp_OASetProperty @iMsg, 'TextBody', @Body<br /> -- Send mail and do error handling<br /> EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL<br /> IF @hr <> 0<br /> BEGIN<br /> EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT<br /> IF @hr = 0<br /> BEGIN<br /> SELECT @output = ' Description: ' + @description<br /> PRINT @output<br /> END<br /> END<br /> -- Clean up the objects created.<br /> EXEC sp_OADestroy @iMsg<br />GO<br /><br />-- Execute procedure<br />DECLARE @Body varchar(4000)<br />SELECT @Body = 'Your application is rejected. Please contact the system manager.'<br />EXEC usp_cdosys_sendmail 'admin@mail.com.tw','ada@mail.com.tw','System Message',@Body<br /><br />