创建过程[dbo]。[SP_SendMail]
 （
 @DocKey nvarchar（50）
 ）
 如
 开始




    
 声明@Subject Varchar（MAX）
 声明@Message Varchar（MAX）
 声明@CCMail Varchar（MAX）
 声明@Email varchar（MAX）
 声明@Checknum varchar（MAX）
 声明@checkSum varchar（MAX）
 声明@CheckDate varchar（max）
 声明@CardCode varchar（MAX）
 声明@CardName varchar（MAX）
 声明@Address varchar（max）




     --DECLARE @MyCursor游标
     --SET @MyCursor =光标FAST_FORWARD
     -从#T2选择*
                 选择t0.DocNum，t0.DocDate，t0.DocTotal，t0.CardCode，t4.CardName，t4.Address，t4.E_Mail
  从OPRQ T0进入#t2
 T0.DocEntry = T1.docentry上的内部联接prq1 T1


 --inner在T3.CheckKey = T2.CheckAbs和T3.TransRef = t0.DocEntry上加入OCHO T3
 T4.CardCode = T0.CardCode上的内部联接OCRD T4


 其中T0.DocEntry=@DocKey
     
       --OPEN @MyCursor
       -接下来是@MyCursor
       --INTO @ ItemCode，@ ItemName，@ BatchNum，@ WhsCode，@ Quantity，@ Direction，@ Status，@ InDate，@ ExpDate，@ Days，@ OnHand
       -@@ FETCH_STATUS = 0时
        - 开始
      
             宣告@xml NVARCHAR（MAX）
             声明@ body1 NVARCHAR（MAX）
             从#T2选择@ Checknum = docnum
 从#T2选择@ CheckDate = DocDate
 从#T2选择@ checkSum = DocTotal
 从#T2选择@ CardCode = CardCode
 从#T2选择@ CardName = CardName
 从#T2选择@ Address =地址
 从#T2选择@ EMail = E_Mail



 SET @xml = CAST（（SELECT DocNum AS'td'，''，DocDate AS'td'，''，
        DocTotal AS'td'
 从#T2开始-按等级排序
 对于XML PATH（'tr'），ELEMENTS）AS NVARCHAR（MAX））
                           
             SET @ body1 ='  
 
 



 
 亲爱的先生， 
 
 我们很高兴将日期为" + @ CheckDate +"的" + @ Checknum +"转发给卢比。  " + @ checkSum +"。 
 
 按照以下详细说明对帐单付款。 
 
 供应商代码：" + @ CardCode +"  
 
 供应商名称：'+ @ CardName +' 
 
 地址：" + @地址+"  
 

 '+ @ xml +'



 

 
  Bill_No  
 
 结算日期 
 
 金额 


 


 
谢谢
 
 Shree Flavours LLP 
 
 


 
这是系统生成的邮件。 请不要回复。
'
            
           
                             
             SET @ body1 = @ body1 +' '
             选择@Subject ='付款分配'
             --select @ EMail =''
             选择@Message ='尊敬的先生'
      
             从#T2选择@EMail = E_Mail
             执行msdb.dbo.sp_send_dbmail
            
             @ profile_name ='RINKESH'，
             @recipients = @EMail，
             @copy_recipients =''，
             @subject = @Subject，
             @body = @ body1，
             @body_format ='HTML'
            
      
       -从@MyCursor获取下一个
       -INTO @ ItemCode，@ ItemName，@ BatchNum，@ WhsCode，@ Quantity，@ Direction，@ Status，@ InDate，@ ExpDate，@ Days，@ OnHand
        - 结束
       -关闭@MyCursor
       -取消@MyCursor
 结束