自动发送TFS团队项目文件迁入迁出信息

USE [TfsVersionControl]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
Create Procedure [dbo].[usp_AutoSendMailForCheckOutInfo] As
Begin
 /*
 Function : Check TFS For Lock / Check Out
 Author: LuoHP
 Date:20100226
 Modify Date:20100904
 Note: First Create SQLMail
 */
 declare @BodyStr nvarchar(max)
 Declare @QuerySQL nvarchar(max)
 Select @BodyStr = Convert(nvarchar(16),getdate(),120)+' List at attachment'
 --表说明 Begin
 --TfsVersionControl.dbo.tbl_lock  文件锁定信息
 --TfsVersionControl.dbo.tbl_workspace 用户工作区
 --TfsVersionControl.dbo.tbl_Identity 用户信息
 --TfsVersionControl.dbo.tbl_pendingchange 文件迁入迁出信息
 --表说明 End
 Set @QuerySQL= 'select Convert(nvarchar(10),''LOCK'') As Type,
 Convert(nvarchar(20),I.DisplayName) As [User],
 Convert(nvarchar(30),W.Computer) As Computer,
 Convert(nvarchar(150),L.FullPath) As FileName
  From tbl_lock L
 Left Join tbl_workspace W on L.workspaceID = W.workspaceID
 Left Join tbl_Identity I on I.IdentityId = W.OwnerID
 Union All
 select Convert(nvarchar(10),''CheckOut'') As Type,
 Convert(nvarchar(20),I.DisplayName) As [User],
 Convert(nvarchar(30),W.Computer) As Computer,
 Convert(nvarchar(150),C.TargetParentPath+C.TargetChildItem) As FileName 
  From tbl_pendingchange C
 Left Join tbl_workSpace W on C.WorkspaceID = W.workspaceID
 Left Join tbl_Identity I on I.IdentityId = W.OwnerID
 Where W.Computer Is Not Null
 Order By Type,[User],Computer'
 
 --Print @QuerySQL
 --取得收件人列表
 declare @Mail nvarchar(max)
 set @Mail = '[email protected]' --收件人地址
 select @Mail=@Mail+mail+';' from WeeklyReport.dbo.Users
 select @Mail = substring(@Mail,1,Len(@mail)-1)
 --print @mail

 EXEC msdb.dbo.sp_send_dbmail
  @profile_name = 'DBMailprofile' --数据库邮件配置,
  @recipients = @mail,
  @subject = '【TFS每日提示】TFS文件迁出/锁定列表，请检查是否有忘记迁入的文件',
  @body = @BodyStr,
  @attach_query_result_as_file =1,
  @query = @QuerySQL,
  @append_query_error=1,
  @execute_query_database  ='TfsVersionControl'
  
End