SSIS压缩文件并以邮件附件发送

PS: 1.由于本文使用了msdb..sp_send_dbmail发送邮件.所以应先对数据库邮件进行配置.
  2.在压缩文件时,使用了7-Zip进行压缩,所以请到http://www.7-zip.org/下载该压缩工具,由于该压缩工具基于 GNU LGPL 许可协议,所以可自由使用.下载完.安装到E:/7-Zip/ 由于本文使用的是这个路径,所以可以自行设置路径.并在以下使用到7z.exe时指定具体的路径.

一.打开Business Intelligence Development Studio平台.然后文件->新建->项目->选择SSIS项目.
二.菜单中选择SSIS->变量.调出变量窗口.然后新增几个变量.如图:



InFileFolder : 准备压缩文件的目录
InFileType : 准备压缩文件的文件类型.即扩展名
OutExecuteCommand : 执行压缩命令的命令参数
OutFileFolder : 存储压缩文件的目录
OutFileName : 存储压缩文件的文件名
OutFullName : 压缩文件的完整路径和文件名
Password : 压缩文件的密码. *为空是表示不加密码压缩

三.在控制流上添加一个脚本任务.并双击进入脚本任务编辑器
(1)在ReadOnlyVariables 里添加InFileFolder,InFileType,OutFileFolder,Password
(2)在ReadWriteVariables里添加 OutExecuteCommand,OutFileName,OutFullName
(3)脚本语言选择 Visual Basic
 
(4)点击编辑脚本按钮.进入代码编辑器.
在Main方法里添加如下代码

VB.NET code

    Public Sub Main()        Dim InFileFolder, InFileType, OutFileName, OutFileFolder, OutExecuteCommand, Password, OutFullName As String        Dim sYear, sMonth, sDay As String        Dim FileDate As String        InFileFolder = Dts.Variables("InFileFolder").Value.ToString        InFileType = Dts.Variables("InFileType").Value.ToString        OutFileFolder = Dts.Variables("OutFileFolder").Value.ToString        Password = Dts.Variables("Password").Value.ToString        sYear = Now.Year.ToString        sMonth = Now.Month.ToString        sDay = Now.Day.ToString        If sMonth.Length < 2 Then sMonth = "0" & sMonth        If sDay.Length < 2 Then sDay = "0" & sDay        FileDate = sYear & sMonth & sDay        OutFileName = "Archive" & FileDate & ".zip"        OutFullName = OutFileFolder & OutFileName        OutExecuteCommand = " a -tzip "        If Password <> "" Then            OutExecuteCommand += "-p""" & Password & """"        End If        OutExecuteCommand += " """ & OutFullName & """ """ & InFileFolder & "*." & InFileType & """"        Dts.Variables("OutFileName").Value = OutFileName        Dts.Variables("OutExecuteCommand").Value = OutExecuteCommand        Dts.Variables("OutFullName").Value = OutFullName        Dts.TaskResult = ScriptResults.SuccessEnd Sub

(5)点击生成并保存退出

四.添加一个执行进程任务,并将脚本任务的成功流拖往该执行进程任务.并双击进入执行进程任务编辑器.并设置如图:
(1)
   
  (2).进入表达式设置.在Expressions里点击右边的对话按钮.并打开属性表达式编辑器.在属性里选择Arguments.并在表达式里选择OutExecuteCommand变量,如图
 
  (3) 确定返回

五.在控制流里添加一个执行SQL任务.将执行进程任务的成功流拖往该执行SQL任务.并双击进入执行SQL任务编辑器

在Connection里设置为一个连接SQL Server的连接管理器.在SQLStatement里输入:

SQL code

    exec msdb.dbo.sp_send_dbmail      @profile_name='myfend',      @recipients='[e-mail]',      @subject='测试附件',      @file_attachments=?

在参数映射里添加一个参数.变量名选择OutFullName,方向为Input,数据类型为VARCHAR,参数名称为0,参数大小为1024
 
点击确定返回.

并按F5执行包