客户端执行,发送邮件及附件和邮件标题设置:
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[xsend_mail]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[xsend_mail]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
--begin tran send
CREATE proc xsend_mail
as
declare @return int,@fname varchar(100),@path varchar(100),@last varchar(200),@msg varchar(1000)
exec @return=savexls @fname output,@path output
set @return=0
--select @fname,@path
--print @path
--print @fname
--if @return>0
--goto err_lab
declare @Vshpchd varchar(20)
--declare @return int
exec @return=khyy.hszy.dbo.pr_getemail @vshpchd output
--if @return>0
--goto err_lab
declare @email varchar(100)
select @email=email from khyy.hszy.dbo.email_list where shpchd=@vshpchd
--select @email,@path,@fname,@path+@fname
set @path= rtrim(ltrim(@path))
set @fname=rtrim(ltrim(@fname))
set @last=@path+@fname
set @last=rtrim(ltrim(@last))
set @msg='尊敬的 '+@vshpchd+' 公司,这是陕西X生自动SQL动态邮件系统发送的邮件,这是直接从数据库中检索上月流向自动发送给您的,无毒准确!'
--err_lab:
--rollback tran send
EXEC master..xp_sendmail
@recipients=@email,
@subject = '陕XX生流向',
@message =@msg,
@attachments=@last
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO