Macros 用于打印pdf和电子邮件的Qlikview宏VBScript将无法持续运行-在电子邮件中失败_Macros_Vbscript_Pdf Generation_Qlikview

Macros 用于打印pdf和电子邮件的Qlikview宏VBScript将无法持续运行-在电子邮件中失败

macros vbscript

Macros 用于打印pdf和电子邮件的Qlikview宏VBScript将无法持续运行-在电子邮件中失败,macros,vbscript,pdf-generation,qlikview,Macros,Vbscript,Pdf Generation,Qlikview,在过去的几天里，我一直在努力让这个宏在Windows调度程序上稳定工作基本上，工作流程如下所示： sub ExportPDF printReportPDF "\\SGH-SRV-FPS1\S-Drive\eCommerce\Data Analyst\Reporting\Daily E-Commerce Report\E-Commerce Daily Report.pdf" ActiveDocument.GetApplication.Sleep 2000 ActiveDocumen

在过去的几天里，我一直在努力让这个宏在Windows调度程序上稳定工作

基本上，工作流程如下所示：

sub ExportPDF
  printReportPDF "\\SGH-SRV-FPS1\S-Drive\eCommerce\Data Analyst\Reporting\Daily E-Commerce Report\E-Commerce Daily Report.pdf"

  ActiveDocument.GetApplication.Sleep 2000
  ActiveDocument.PrintReport "RP01", "PDF-XChange 3.0"
  ActiveDocument.GetApplication.Sleep 8000
end sub

Function printReportPDF(pdfOutputFile)
  Set WSHShell = CreateObject("WScript.Shell")
  WSHShell.RegWrite "HKCU\Software\Tracker Software\PDF-XChange 3.0\OutputFile", pdfOutputFile, "REG_SZ"
  WSHShell.RegWrite "HKCU\Software\Tracker Software\PDF-XChange 3.0\BypassSaveAs", "1", "REG_SZ"
  Set WSHShell = nothing
End function

Sub ExportEmail
  Dim strvDest 'as string
  strvDest = ActiveDocument.Variables("vDestination").GetContent().String 
  msgbox(strvDestination)

  Define report variables
  get the date as a serial for the filename output
  Export an Object

  Set obj = ActiveDocument.ActiveSheet.SheetObjects("TX25")
  Set obj1 = ActiveDocument.ActiveSheet.SheetObjects("TX17")
  Set obj2 = ActiveDocument.ActiveSheet.SheetObjects("TX18")
  Set obj3 = ActiveDocument.ActiveSheet.SheetObjects("TX15")
  Set obj5 = ActiveDocument.ActiveSheet.SheetObjects("CH62")
  Set obj6 = ActiveDocument.ActiveSheet.SheetObjects("TX16")
  Set obj8 = ActiveDocument.ActiveSheet.SheetObjects("CH58")
  Set obj9 = ActiveDocument.ActiveSheet.SheetObjects("TX31")
  Set obj10 = ActiveDocument.ActiveSheet.SheetObjects("CH69")
  msgbox("defined objects")

  obj.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainLogo.jpg"
  obj1.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainHeader.jpg"
  obj2.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\DateRange.jpg"
  obj3.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader.jpg"
  obj5.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\DailySiteDetail.jpg"
  obj6.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader2.jpg"
  obj8.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetail.jpg" 
  obj9.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader3.jpg"
  obj10.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetailLW.jpg" 
  msgbox("created objects")

  Dim objEmail
  Const cdoSendUsingPort = 2    Send the message using SMTP
  Const cdoAnonymous = 0        Do not authenticate
  Const cdoBasic = 1                basic (clear-text) authentication
  Const cdoNTLM = 2                  NTLM
  Const SMTPServer = "xxxx" ' changed for public consumption
  Const SMTPPort = 25                 ' Port number for SMTP
  Const SMTPTimeout = 120              ' Timeout for SMTP in seconds

  Set objEmail = CreateObject("CDO.Message")
  Set objConf = objEmail.Configuration
  Set objFlds = objConf.Fields

  With objFlds
     ———————————————————————

     SMTP server details
     removed the html links down to this being my first post

    .Update
    ———————————————————————
  End With

  allow the passing of a variable from the load script to define the distribution list

  if len(strvDest) > 0 then
    msgbox("variable exists "&strvDest) 
    objEmail.To = strvDest
  else
    msgbox("variable does not exist") 
    objEmail.To = "xxxx" 'changed for public consumption
  end if

  objEmail.From = "xxxx" 'changed for public consumption
  objEmail.Subject = "Daily Reporting"

  HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & chr(13) & chr(10)
  HTML = HTML & "<html>"
  HTML = HTML & "<head>"
  HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
  HTML = HTML & "<title>Automated Emails!</title>"
  HTML = HTML & "</head>"
  HTML = HTML & "<body bgcolor=""#FFFFFF"">"

  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:MainLogo.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:MainHeader.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:DateRange.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:DailySiteDetail.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader2.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:WeeklySiteDetail.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader3.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:WeeklySiteDetailLW.jpg"" >" 
  HTML = HTML & "<p>"
  HTML = HTML & "</p>"
  HTML = HTML & "</body>"
  HTML = HTML & "</html>"

  Set objBP = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainLogo.jpg", "MainLogo.jpg", CdoReferenceTypeName)
  objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<MainLogo.jpg>"
  objBP.Fields.Update

  Set objBP1 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainHeader.jpg", "MainHeader.jpg", CdoReferenceTypeName)
  objBP1.Fields.Item("urn:schemas:mailheader:Content-ID") = "<MainHeader.jpg>"
  objBP1.Fields.Update

  Set objBP2 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\DateRange.jpg", "DateRange.jpg", CdoReferenceTypeName)
  objBP2.Fields.Item("urn:schemas:mailheader:Content-ID") = "<DateRange.jpg>"
  objBP2.Fields.Update

  Set objBP3 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader.jpg", "SecondaryHeader.jpg", CdoReferenceTypeName)
  objBP3.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader.jpg>"
  objBP3.Fields.Update

  Set objBP5 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\DailySiteDetail.jpg", "DailySiteDetail.jpg", CdoReferenceTypeName)
  objBP5.Fields.Item("urn:schemas:mailheader:Content-ID") = "<DailySiteDetail.jpg>"
  objBP5.Fields.Update

  Set objBP6 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader2.jpg", "SecondaryHeader2.jpg", CdoReferenceTypeName)
  objBP6.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader2.jpg>"
  objBP6.Fields.Update

  Set objBP8 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetail.jpg", "WeeklySiteDetail.jpg", CdoReferenceTypeName)
  objBP8.Fields.Item("urn:schemas:mailheader:Content-ID") = "<WeeklySiteDetail.jpg>"
  objBP8.Fields.Update 

  Set objBP9 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader3.jpg", "SecondaryHeader3.jpg", CdoReferenceTypeName)
  objBP9.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader3.jpg>"
  objBP9.Fields.Update 

  Set objBP10 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetailLW.jpg", "WeeklySiteDetailLW.jpg", CdoReferenceTypeName)
  objBP10.Fields.Item("urn:schemas:mailheader:Content-ID") = "<WeeklySiteDetailLW.jpg>"
  objBP10.Fields.Update

  Set objBPDoc = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\Qlikview Printing.pdf", "Qlikview Printing.pdf", CdoReferenceTypeName)
  objBPDoc.Fields.Item("urn:schemas:mailheader:Content-ID") = "<Qlikview Printing.pdf>"

  objBPDoc.Fields.Update
  objEmail.HTMLBody = HTML

  msgbox("attached objects")

  objEmail.Send

Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing

ActiveDocument.Save
Application.Quit

1） Windows计划程序-每日，使用管理员用户凭据

2）批处理文件-使用/l重新加载

3）重新加载Qlikview应用程序，该应用程序在重新加载后会触发保存pdf并使用pdf Xchange和html格式的电子邮件通过电子邮件发送给移动设备

我的行为如此不一致，以至于我无法将问题与任何特定的一件事隔离开来。有时有效，有时无效。它在Windows计划程序上经常失败。没有错误，因为QV刚刚在隐藏进程中抛出了VBScript窗口

我一直在更改权限，这帮助我达到了性能不一致的水平，而不是没有性能

此外，您似乎无法将变量传递给PDF Xchange打印机

宏中的代码如下所示：

sub ExportPDF
  printReportPDF "\\SGH-SRV-FPS1\S-Drive\eCommerce\Data Analyst\Reporting\Daily E-Commerce Report\E-Commerce Daily Report.pdf"

  ActiveDocument.GetApplication.Sleep 2000
  ActiveDocument.PrintReport "RP01", "PDF-XChange 3.0"
  ActiveDocument.GetApplication.Sleep 8000
end sub

Function printReportPDF(pdfOutputFile)
  Set WSHShell = CreateObject("WScript.Shell")
  WSHShell.RegWrite "HKCU\Software\Tracker Software\PDF-XChange 3.0\OutputFile", pdfOutputFile, "REG_SZ"
  WSHShell.RegWrite "HKCU\Software\Tracker Software\PDF-XChange 3.0\BypassSaveAs", "1", "REG_SZ"
  Set WSHShell = nothing
End function

Sub ExportEmail
  Dim strvDest 'as string
  strvDest = ActiveDocument.Variables("vDestination").GetContent().String 
  msgbox(strvDestination)

  Define report variables
  get the date as a serial for the filename output
  Export an Object

  Set obj = ActiveDocument.ActiveSheet.SheetObjects("TX25")
  Set obj1 = ActiveDocument.ActiveSheet.SheetObjects("TX17")
  Set obj2 = ActiveDocument.ActiveSheet.SheetObjects("TX18")
  Set obj3 = ActiveDocument.ActiveSheet.SheetObjects("TX15")
  Set obj5 = ActiveDocument.ActiveSheet.SheetObjects("CH62")
  Set obj6 = ActiveDocument.ActiveSheet.SheetObjects("TX16")
  Set obj8 = ActiveDocument.ActiveSheet.SheetObjects("CH58")
  Set obj9 = ActiveDocument.ActiveSheet.SheetObjects("TX31")
  Set obj10 = ActiveDocument.ActiveSheet.SheetObjects("CH69")
  msgbox("defined objects")

  obj.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainLogo.jpg"
  obj1.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainHeader.jpg"
  obj2.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\DateRange.jpg"
  obj3.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader.jpg"
  obj5.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\DailySiteDetail.jpg"
  obj6.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader2.jpg"
  obj8.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetail.jpg" 
  obj9.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader3.jpg"
  obj10.ExportBitmapToFile "D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetailLW.jpg" 
  msgbox("created objects")

  Dim objEmail
  Const cdoSendUsingPort = 2    Send the message using SMTP
  Const cdoAnonymous = 0        Do not authenticate
  Const cdoBasic = 1                basic (clear-text) authentication
  Const cdoNTLM = 2                  NTLM
  Const SMTPServer = "xxxx" ' changed for public consumption
  Const SMTPPort = 25                 ' Port number for SMTP
  Const SMTPTimeout = 120              ' Timeout for SMTP in seconds

  Set objEmail = CreateObject("CDO.Message")
  Set objConf = objEmail.Configuration
  Set objFlds = objConf.Fields

  With objFlds
     ———————————————————————

     SMTP server details
     removed the html links down to this being my first post

    .Update
    ———————————————————————
  End With

  allow the passing of a variable from the load script to define the distribution list

  if len(strvDest) > 0 then
    msgbox("variable exists "&strvDest) 
    objEmail.To = strvDest
  else
    msgbox("variable does not exist") 
    objEmail.To = "xxxx" 'changed for public consumption
  end if

  objEmail.From = "xxxx" 'changed for public consumption
  objEmail.Subject = "Daily Reporting"

  HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & chr(13) & chr(10)
  HTML = HTML & "<html>"
  HTML = HTML & "<head>"
  HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
  HTML = HTML & "<title>Automated Emails!</title>"
  HTML = HTML & "</head>"
  HTML = HTML & "<body bgcolor=""#FFFFFF"">"

  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:MainLogo.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:MainHeader.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:DateRange.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:DailySiteDetail.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader2.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:WeeklySiteDetail.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:SecondaryHeader3.jpg"" >"
  HTML = HTML & "<br>&nbsp;&nbsp;&nbsp;<img src=""cid:WeeklySiteDetailLW.jpg"" >" 
  HTML = HTML & "<p>"
  HTML = HTML & "</p>"
  HTML = HTML & "</body>"
  HTML = HTML & "</html>"

  Set objBP = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainLogo.jpg", "MainLogo.jpg", CdoReferenceTypeName)
  objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<MainLogo.jpg>"
  objBP.Fields.Update

  Set objBP1 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\MainHeader.jpg", "MainHeader.jpg", CdoReferenceTypeName)
  objBP1.Fields.Item("urn:schemas:mailheader:Content-ID") = "<MainHeader.jpg>"
  objBP1.Fields.Update

  Set objBP2 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\DateRange.jpg", "DateRange.jpg", CdoReferenceTypeName)
  objBP2.Fields.Item("urn:schemas:mailheader:Content-ID") = "<DateRange.jpg>"
  objBP2.Fields.Update

  Set objBP3 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader.jpg", "SecondaryHeader.jpg", CdoReferenceTypeName)
  objBP3.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader.jpg>"
  objBP3.Fields.Update

  Set objBP5 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\DailySiteDetail.jpg", "DailySiteDetail.jpg", CdoReferenceTypeName)
  objBP5.Fields.Item("urn:schemas:mailheader:Content-ID") = "<DailySiteDetail.jpg>"
  objBP5.Fields.Update

  Set objBP6 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader2.jpg", "SecondaryHeader2.jpg", CdoReferenceTypeName)
  objBP6.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader2.jpg>"
  objBP6.Fields.Update

  Set objBP8 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetail.jpg", "WeeklySiteDetail.jpg", CdoReferenceTypeName)
  objBP8.Fields.Item("urn:schemas:mailheader:Content-ID") = "<WeeklySiteDetail.jpg>"
  objBP8.Fields.Update 

  Set objBP9 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\SecondaryHeader3.jpg", "SecondaryHeader3.jpg", CdoReferenceTypeName)
  objBP9.Fields.Item("urn:schemas:mailheader:Content-ID") = "<SecondaryHeader3.jpg>"
  objBP9.Fields.Update 

  Set objBP10 = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\WeeklySiteDetailLW.jpg", "WeeklySiteDetailLW.jpg", CdoReferenceTypeName)
  objBP10.Fields.Item("urn:schemas:mailheader:Content-ID") = "<WeeklySiteDetailLW.jpg>"
  objBP10.Fields.Update

  Set objBPDoc = objEmail.AddRelatedBodyPart("D:\QlikView\SGP-UDA\QVS_Source\UserApp\Qlikview Printing.pdf", "Qlikview Printing.pdf", CdoReferenceTypeName)
  objBPDoc.Fields.Item("urn:schemas:mailheader:Content-ID") = "<Qlikview Printing.pdf>"

  objBPDoc.Fields.Update
  objEmail.HTMLBody = HTML

  msgbox("attached objects")

  objEmail.Send

Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing

ActiveDocument.Save
Application.Quit

sub-ExportPDF
printReportPDF“\\SGH-SRV-FPS1\S-Drive\eCommerce\Data Analyst\Reporting\Daily E-Commerce Report\E-Commerce Daily Report.pdf”
ActiveDocument.GetApplication.Sleep 2000
ActiveDocument.PrintReport“RP01”、“PDF XChange 3.0”
ActiveDocument.GetApplication.Sleep 8000
端接头
函数printReportPDF（pdfOutputFile）
设置WSHShell=CreateObject（“WScript.Shell”）
WSHShell.RegWrite“HKCU\Software\Tracker Software\PDF XChange 3.0\OutputFile”，pdfOutputFile，“REG_SZ”
WSHShell.RegWrite“HKCU\Software\Tracker Software\PDF XChange 3.0\BypassSaveAs”、“1”、“REG_SZ”
设置WSHShell=nothing
端函数
转口邮件
Dim strvDest'作为字符串
strvDest=ActiveDocument.Variables（“vdestation”）.GetContent（）.String
msgbox（strvDestination）
定义报表变量
获取文件名输出的串行日期
导出对象
设置obj=ActiveDocument.ActiveSheet.SheetObjects（“TX25”）
设置obj1=ActiveDocument.ActiveSheet.SheetObjects（“TX17”）
设置obj2=ActiveDocument.ActiveSheet.SheetObjects（“TX18”）
设置obj3=ActiveDocument.ActiveSheet.SheetObjects（“TX15”）
设置obj5=ActiveDocument.ActiveSheet.SheetObjects（“CH62”）
设置obj6=ActiveDocument.ActiveSheet.SheetObjects（“TX16”）
设置obj8=ActiveDocument.ActiveSheet.SheetObjects（“CH58”）
设置obj9=ActiveDocument.ActiveSheet.SheetObjects（“TX31”）
设置obj10=ActiveDocument.ActiveSheet.SheetObjects（“CH69”）
msgbox（“已定义对象”）
obj.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\MainLogo.jpg”
obj1.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\MainHeader.jpg”
obj2.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\DateRange.jpg”
obj3.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\SecondaryHeader.jpg”
obj5.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\DailySiteDetail.jpg”
obj6.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\SecondaryHeader2.jpg”
obj8.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\WeeklySiteDetail.jpg”
obj9.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\SecondaryHeader3.jpg”
obj10.ExportBitmapToFile“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\WeeklySiteDetailLW.jpg”
msgbox（“已创建对象”）
暗箱
Const cdoSendUsingPort=2使用SMTP发送邮件
Const cdoAnonymous=0不进行身份验证
常量cdoBasic=1基本（明文）身份验证
常数cdoNTLM=2 NTLM
Const SMTPServer=“xxxx”'已更改为供公众使用
Const SMTPPort=25'SMTP的端口号
常量SMTPTimeout=SMTP的120'超时（秒）
Set objEmail=CreateObject（“CDO.Message”）
设置objConf=objEmail.Configuration
设置objFlds=objConf.Fields
使用OBJFLD
———————————————————————
SMTP服务器详细信息
删除了html链接，这是我的第一篇文章
.更新
———————————————————————
以
允许从加载脚本传递变量以定义通讯组列表
如果len（strvDest）>0，则
msgbox（“变量存在”&strvDest）
objEmail.To=strvDest
其他的
msgbox（“变量不存在”）
objEmail.To=“xxxx”已更改为供公众使用
如果结束
objEmail.From=“xxxx”已更改为供公众使用
objEmail.Subject=“每日报告”
HTML=”“&chr（13）和chr（10）
HTML=HTML&“
HTML=HTML&“
HTML=HTML&“
HTML=HTML&“自动电子邮件！”
HTML=HTML&“
HTML=HTML&“
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“
”
HTML=HTML&“”
HTML=HTML&“”
HTML=HTML&“
HTML=HTML&“
设置objBP=objEmail.AddRelatedBodyPart（“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\MainLogo.jpg”、“MainLogo.jpg”、CdoReferenceTypeName）
objBP.Fields.Item（“urn:schemas:mailheader:Content-ID”）=“”
objBP.Fields.Update
设置objBP1=objEmail.AddRelatedBodyPart（“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\MainHeader.jpg”、“MainHeader.jpg”、CdoReferenceTypeName）
objBP1.Fields.Item（“urn:schemas:mailheader:Content-ID”）=“”
objBP1.Fields.Update
设置objBP2=objEmail.AddRelatedBodyPart（“D:\QlikView\SGP-UDA\QVS\u Source\UserApp\DateRange.jpg”、“DateRange.jpg”、CdoReferenceTypeName）
objBP2.Fields.Item（“urn:schemas:mailheader:Content-ID”）=“”
objBP2.Fields.Update
设置objBP3=objEmail.AddRelatedBodyPart（“D:\QlikView\SGP-UDA\QVS\U Source\UserApp\SecondaryHeader.jpg”、“SecondaryHeader.jpg”、CDOReReferenceTypeName）
objBP3.Fields.Item（“urn:schemas:mailheader:Content-ID”）=“”
objBP3.Fields.Update
设置objBP5=objEmail.AddRelatedBodyPart（“D:\QlikView\SGP-UDA