自动定时查询销售，定时保存成XLS，自动发送给不同的业务代表-----第五步

 客户端执行，发送邮件及附件和邮件标题设置：

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