一、目的：
1.每天定时从tableau导出pdf报表
2.每天自动定时发送邮件
二、实现的过程：
1.首先利用windows自带的记事本写好bat批处理文件，更多tableau可以看tableau cmd命令，本地新建记事本，贴代码如下，然后改后缀bat：
set path=C:\Program Files\Tableau\Tableau Server\10.5\bintabcmd login -s http://服务器ip:服务器端口 -u 用户名 -p 密码del C:\pdf\*.pdf -ydel C:\pdf\*.png -ytabcmd export "Deli/DailySales" --png -f "C:\pdf\DailySales.png"tabcmd export "Deli/DailySales" --pdf -f "C:\pdf\DailySales.pdf"
这样就可以在本地c盘的pdf文件夹看到生成的pdf和png附件了。
检查数据库数量是否正确
@echo offosql -U 用户明 -P 密码 -S 17.服务器ip -d 数据库 -Q "select * from S where *" >1.txtfor /f "skip=2 skip=1 eol=(" %%i in (1.txt) do set b= %%iset /a num1=1860if %num1% LSS %b% echo.>>C:\pdf\output.txtdel 1.txt
2.利用vbs文件发送邮件。关于vbs，还有很好玩的，可以看看如何恶搞朋友的电脑。进入正题，本地新建记事本，贴下面的代码，改后缀vbs：
Set objShell = CreateObject("Wscript.Shell")SET objFSO = CreateObject("Scripting.FileSystemObject")SDate = DATE()-1StrArray = SPLIT(CStr(SDate),"/")SYear = StrArray(0)SMonth = StrArray(1)SDay = StrArray(2)IF SMonth < 10 THEN SMonth = "0"&SMonthIF SDay < 10 THEN SDay = "0"&SDayStrDate = SYear&SMonth&SDayEXPORTPath = "c:\pdf\"SENDPath = """C:\pdf\his\"""objShell.Run("CMD /c COPY /V /Y "&EXPORTPath&"DailySales.png "&SENDPath&"DailySales_"&StrDate&".png")objShell.Run("CMD /c COPY /V /Y "&EXPORTPath&"DailySales.pdf "&SENDPath&"DailySales_"&StrDate&".pdf")objShell.Run("CMD /c COPY /V /Y "&EXPORTPath&"Store.pdf "&SENDPath&"Store_"&StrDate&".pdf")objShell.Run("CMD /c COPY /V /Y "&EXPORTPath&"StorePercentage.pdf "&SENDPath&"StorePercentage_"&StrDate&".pdf")Wscript.Sleep 3000Dim strHTMLstrHTML = "<HTML>"strHTML = strHTML & "<HEAD>"strHTML = strHTML & "<BODY>"strHTML = strHTML & "<span style=font-size:9pt;font-family:Tahoma,Calibri,sans-serif;color:black>"strHTML = strHTML & "===Please do not reply this mail directly, it is a system generated mail=== <p>"strHTML = strHTML & "<span style=font-size:10pt;font-family:Tahoma,Calibri,sans-serif;color:black>"strHTML = strHTML & "Dear all ,</span><p>"strHTML = strHTML & "<span style=font-size:10pt;font-family:Tahoma,Calibri,sans-serif;color:black>"strHTML = strHTML & "Below " & SDate & " Thanks! </span>"strHTML = strHTML & "<span style=font-size:10pt;font-family:Tahoma,Calibri,sans-serif;color:black>"strHTML = strHTML & "<img src=http://xxxxx/mail/DailySales_"&StrDate&".png />"strHTML = strHTML & "</BODY>"strHTML = strHTML & "</HTML>"Set myfile = objFSO.openTextFile("c:\pdf\mail.txt", 1, false)While Not myfile.AtEndOfLinemailto=myfile.readlineIf objFSO.FileExists("c:\pdf\etl_output_delivery.txt") Then sendrpt()On Error Resume Next WendSub sendrpt()Set objEmail = CreateObject("CDO.Message")objEmail.From ="report@"objEmail.To = mailtoobjEmail.Subject = "testemail report " & StrDateobjEmail.HTMLbody = strHTMLobjEmail.AddAttachment "C:\pdf\his\DailySalesbyRegionDelivery_" & StrDate & ".pdf"objEmail.AddAttachment "C:\pdf\his\StoreDetailsDelivery_" & StrDate & ".pdf"objEmail.AddAttachment "C:\pdf\his\StoreDetailDeliveryPercentage_" & StrDate & ".pdf"Const schema = "/cdo/configuration/" With objEmail.Configuration.Fields .Item(schema & "sendusing") = 2 .Item(schema & "smtpserver") = "" .Item(schema & "smtpauthenticate") = 1 .Item(schema & "sendusername") = "report@xxx.xx" .Item(schema & "sendpassword") = "密码" .Item(schema & "smtpserverport") = 25 .Item(schema & "smtpusessl") = False.Item(schema & "smtpconnectiontimeout") = 60 .Update End With objEmail.Send End Sub
3.利用windows自带的server managers发送邮件。
我的电脑-右键-管理，找到任务计划程序-任务计划程序库：
右键，新建任务，可以在触发器这里设置自动更新的频率：
在操作这里可以设置我们刚才创建的bat和vbs文件自启动，到这里就大功告成了。
接下里就每天喝喝茶，看看邮件就行，双手全解放了。
