SQL Server不用自带的SQLMAIL发邮件的方法

公司数据库有台是SQLSERVER,需要在存储过程中发送邮件,但是该服务器没有装OUTLOOK,用SQLMAIL组件发邮件既不方便用不安全,故需要从其它方面下手

SQLSERVER可以有扩展组件,利用这个特点我们可以用高级语言写个邮件发送方法,然后将他注册成SQL可以访问的组件,在SQL语句中就可以调用这个方法来发送邮件了,简单又方便.
这里对发邮件类不做介绍,重点讲下如何注册成组件并在SQL里面调用.
假如我们用C#写好了一个DLL组件名字叫 ExtenStoreProc.dll ,里面有发邮件的方法.在DOTNET安装目录下有个导入工具叫REGASM.EXE,利用它我们把.NET开发的组件注册成系统组件。
REGASM的语法是:

Microsoft (R) .NET Framework Assembly Registration Utility 1.1.4322.573
Copyright (C) Microsoft Corporation 1998-2002.  All rights reserved.

語法: RegAsm AssemblyPath [選項]
選項:
    /unregister          取消註冊型別
    /tlb[:FileName]      將組件匯出至指定的型別程式庫並註冊
    /regfile[:FileName]  產生一個使用指定名稱的登錄檔，而不要註冊型別。
                         這個選項不可以和 /u 或 /tlb 選項一起使用
    /codebase            設定登錄中的程式碼基底
    /registered          僅參考已登錄的型別程式庫
    /nologo              不要讓 RegAsm 顯示產品資訊
    /silent              無訊息模式。不要顯示執行成功的訊息
    /verbose             顯示其他的相關資訊
    /? 或 /help          顯示這個使用方式的訊息

我们只需要执行如下命令即可：

regasm /tlb:ExtenStoreProc.tlb ExtenStoreProc.dll /codebase

如果提示成功则表示已将此组件导入成系统组件,我们就可以在SQL里面访问这个组件了

如下一个存储过程显示了如何调用此组件

CREATE   PROCEDURE  ExtenStoreProcTest   AS

declare   @object   int
DECLARE   @hr   int
DECLARE   @property   varchar ( 255 )
DECLARE   @return   varchar ( 255 )
DECLARE   @src   varchar ( 255 ),  @desc   varchar ( 255 )

-- 初始化
EXEC   @hr   =  sp_OACreate  ' ExtenStoreProc.ExtenStoreProc ' ,  @object  OUT           -- namespace.classname
IF   @hr   <>   0
BEGIN
EXEC  sp_OAGetErrorInfo  @object ,  @src  OUT,  @desc  OUT
SELECT  hr = convert ( varbinary ( 4 ), @hr ), Source = @src , Description = @desc
RETURN
END

-- 執行
declare   @subject   varchar ( 255 ), @content   varchar ( 8000 ), @mailfrom   varchar ( 255 ), @mailto   varchar ( 255 ), @cmd   varchar ( 8000 )
set   @subject   =   ' Sql Mail Test '
set   @content   =   ' This is sql Procedure Send Mail '
set   @mailfrom   =   'mailfrom @company.com '
set   @mailto   =   'mailto @company.com '
set   @cmd   =   ' SendMail(" '   +   @subject   +   ' "," '   +   @content   +   ' "," '   +   @mailfrom   +   ' "," '   +   @mailto   +   ' ") '  --SendMail为组件里的方法
print   @cmd

EXEC   @hr   =  sp_OAMethod  @object , @cmd ,  @return  OUT                             -- method
-- EXEC @hr = sp_OAMethod @object, 'Main', @return OUT                            --method
IF   @hr   <>   0
BEGIN
EXEC  sp_OAGetErrorInfo  @object ,  @src  OUT,  @desc  OUT
SELECT  hr = convert ( varbinary ( 4 ), @hr ), Source = @src , Description = @desc
RETURN
END
PRINT   @return

-- 銷毀
EXEC   @hr   =  sp_OADestroy  @object
IF   @hr   <>   0
BEGIN
EXEC  sp_OAGetErrorInfo  @object ,  @src  OUT,  @desc  OUT
SELECT  hr = convert ( varbinary ( 4 ), @hr ), Source = @src , Description = @desc
RETURN
END
GO

如上就是用SQL调用外部组件发送邮件的全部过程

转载于:https://www.cnblogs.com/zzyyll2/archive/2007/10/29/941176.html