CREATE PROCEDURE dbo.workflow_SendMail
@from varchar(100),
@to varchar(100),
@cc varchar(100),
@bcc varchar(100),
@replyto varchar(100),
@subject varchar(200),
@body varchar(8000)
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 'BiSoftWare.BiSoftWare', @object OUT
IF @hr <> 0
BEGIN
--EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
--SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END
-- 调用对象方法。
EXEC @hr = sp_OAMethod @object, 'SendMail', @return OUT,@from,@to,@cc,@bcc,@replyto,@subject,@body,'SMTP用户邮箱','SMTP登录密码','SMTP服务器'
---bool SendMail(string from, string sendToCollection, string ccCollection, string bccCollection, string replyTo,string subject, string body,string smtpSender, string smtpPassWord, string smtpHost)
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