topic Macro to export and mail in QlikView

topic Macro to export and mail in QlikView https://community.qlik.com/t5/QlikView/Macro-to-export-and-mail/m-p/625866#M230143 <HTML><HEAD></HEAD><BODY><P>I am using following macro to export the chart as image and then send mail .</P><P>The image in mail body.</P><P></P><P>Sending as attachment, works fine but , image in mail body is an issue.</P><P></P><P>If I provide hardcoded path in src, then it works, but I want it dynamic. to exported file path.</P><P></P><P>Please help me out.</P><P></P><P></P><P>Here I get error as "Object required: '[string: "C:\USERS\841240\DOWN"]'" while assigning value to variable "Path"</P><P></P><P></P><P><SPAN style="color: #ff0000;">public function ExportImage</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetSheetByID("DASH").Activate</SPAN></P><P></P><P></P><P><SPAN style="color: #ff0000;">  vFolder = ActiveDocument.GetVariable("vExportFolder").GetContent().String</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  set obj = ActiveDocument.GetSheetByID("DASH")</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  fileName = "ExportScreen_" & replace(replace(replace(date() & "_" & time(), "/", ""), ".", ""), ":", "") & ".png"</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  obj.ExportBitmapToFile vFolder & fileName</SPAN></P><P></P><P></P><P><SPAN style="color: #ff0000;">  set obj = ActiveDocument.GetSheetObject("EXPORT")</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  fileName = "ExportScreen_" & replace(replace(replace(date() & "_" & time(), "/", ""), ".", ""), ":", "") & ".png"</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  obj.ExportBitmapToFile vFolder & fileName</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  mSendMail vFolder , fileName</SPAN></P><P></P><P><SPAN style="color: #ff0000;">end function</SPAN></P><P></P><P></P><P></P><P></P><P><SPAN style="color: #ff0000;">function mSendMail(vFolder , fileName)</SPAN></P><P><SPAN style="color: #ff0000;">          Dim objOutlk 'Outlook</SPAN></P><P><SPAN style="color: #ff0000;">          Dim objMail 'Email item</SPAN></P><P><SPAN style="color: #ff0000;">          Dim strMsg</SPAN></P><P><SPAN style="color: #ff0000;">          dim strMailTo</SPAN></P><P><SPAN style="color: #ff0000;">          dim sString</SPAN></P><P><SPAN style="color: #ff0000;">          dim oldFormat</SPAN></P><P><SPAN style="color: #ff0000;">          Dim Rng</SPAN></P><P><SPAN style="color: #ff0000;">          Const olMailItem = 0</SPAN></P><P><SPAN style="color: #ff0000;">          Const CdoReferenceTypeName = 1</SPAN></P><P><SPAN style="color: #ff0000;">          Set objOutlk = CreateObject("Outlook.Application")</SPAN></P><P><SPAN style="color: #ff0000;">          Set objMail = objOutlk.createitem(olMailItem)</SPAN></P><P><SPAN style="color: #ff0000;">          Set Rng = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">          set Path =  vFolder & fileName</SPAN></P><P><SPAN style="color: #ff0000;"><SPAN>          objMail.To = "</SPAN><A class="jive-link-email-small" href="mailto:nitingupta@eaton.com">nitingupta@eaton.com</A><SPAN>"</SPAN></SPAN></P><P><SPAN style="color: #ff0000;">          objMail.subject = "TEST"</SPAN></P><P><SPAN style="color: #ff0000;">         ' ActiveDocument.ActiveSheet.CopyBitmapToClipboard true</SPAN></P><P><SPAN style="color: #ff0000;">           objMail.attachments.add(vFolder & fileName)</SPAN></P><P><SPAN style="color: #ff0000;">          strMsg = "This is an automatic generated email from QlikView for TEst Purpose."</SPAN></P><P><SPAN style="color: #ff0000;">          objMail.body = strMsg</SPAN></P><P><SPAN style="color: #ff0000;">    objMail.HTMLBODY = "<HTML><BODY><img align=baseline border=0 hspace=0 src= 'Path'</BODY></HTML>"</SPAN></P><P><SPAN style="color: #ff0000;">            objMail.Send</SPAN></P><P><SPAN style="color: #ff0000;">          Set objMail = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">          Set objOutlk = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">           Msgbox  Path</SPAN></P><P><SPAN style="color: #ff0000;">    Msgbox " Mail delivered"</SPAN></P><P><SPAN style="color: #ff0000;">end function</SPAN></P></BODY></HTML> Fri, 11 Apr 2014 07:20:18 GMT Anonymous 2014-04-11T07:20:18Z Macro to export and mail https://community.qlik.com/t5/QlikView/Macro-to-export-and-mail/m-p/625866#M230143 <HTML><HEAD></HEAD><BODY><P>I am using following macro to export the chart as image and then send mail .</P><P>The image in mail body.</P><P></P><P>Sending as attachment, works fine but , image in mail body is an issue.</P><P></P><P>If I provide hardcoded path in src, then it works, but I want it dynamic. to exported file path.</P><P></P><P>Please help me out.</P><P></P><P></P><P>Here I get error as "Object required: '[string: "C:\USERS\841240\DOWN"]'" while assigning value to variable "Path"</P><P></P><P></P><P><SPAN style="color: #ff0000;">public function ExportImage</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetSheetByID("DASH").Activate</SPAN></P><P></P><P></P><P><SPAN style="color: #ff0000;">  vFolder = ActiveDocument.GetVariable("vExportFolder").GetContent().String</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  set obj = ActiveDocument.GetSheetByID("DASH")</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  fileName = "ExportScreen_" & replace(replace(replace(date() & "_" & time(), "/", ""), ".", ""), ":", "") & ".png"</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  obj.ExportBitmapToFile vFolder & fileName</SPAN></P><P></P><P></P><P><SPAN style="color: #ff0000;">  set obj = ActiveDocument.GetSheetObject("EXPORT")</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  fileName = "ExportScreen_" & replace(replace(replace(date() & "_" & time(), "/", ""), ".", ""), ":", "") & ".png"</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  ActiveDocument.GetApplication.WaitForIdle</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  obj.ExportBitmapToFile vFolder & fileName</SPAN></P><P></P><P><SPAN style="color: #ff0000;">  mSendMail vFolder , fileName</SPAN></P><P></P><P><SPAN style="color: #ff0000;">end function</SPAN></P><P></P><P></P><P></P><P></P><P><SPAN style="color: #ff0000;">function mSendMail(vFolder , fileName)</SPAN></P><P><SPAN style="color: #ff0000;">          Dim objOutlk 'Outlook</SPAN></P><P><SPAN style="color: #ff0000;">          Dim objMail 'Email item</SPAN></P><P><SPAN style="color: #ff0000;">          Dim strMsg</SPAN></P><P><SPAN style="color: #ff0000;">          dim strMailTo</SPAN></P><P><SPAN style="color: #ff0000;">          dim sString</SPAN></P><P><SPAN style="color: #ff0000;">          dim oldFormat</SPAN></P><P><SPAN style="color: #ff0000;">          Dim Rng</SPAN></P><P><SPAN style="color: #ff0000;">          Const olMailItem = 0</SPAN></P><P><SPAN style="color: #ff0000;">          Const CdoReferenceTypeName = 1</SPAN></P><P><SPAN style="color: #ff0000;">          Set objOutlk = CreateObject("Outlook.Application")</SPAN></P><P><SPAN style="color: #ff0000;">          Set objMail = objOutlk.createitem(olMailItem)</SPAN></P><P><SPAN style="color: #ff0000;">          Set Rng = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">          set Path =  vFolder & fileName</SPAN></P><P><SPAN style="color: #ff0000;"><SPAN>          objMail.To = "</SPAN><A class="jive-link-email-small" href="mailto:nitingupta@eaton.com">nitingupta@eaton.com</A><SPAN>"</SPAN></SPAN></P><P><SPAN style="color: #ff0000;">          objMail.subject = "TEST"</SPAN></P><P><SPAN style="color: #ff0000;">         ' ActiveDocument.ActiveSheet.CopyBitmapToClipboard true</SPAN></P><P><SPAN style="color: #ff0000;">           objMail.attachments.add(vFolder & fileName)</SPAN></P><P><SPAN style="color: #ff0000;">          strMsg = "This is an automatic generated email from QlikView for TEst Purpose."</SPAN></P><P><SPAN style="color: #ff0000;">          objMail.body = strMsg</SPAN></P><P><SPAN style="color: #ff0000;">    objMail.HTMLBODY = "<HTML><BODY><img align=baseline border=0 hspace=0 src= 'Path'</BODY></HTML>"</SPAN></P><P><SPAN style="color: #ff0000;">            objMail.Send</SPAN></P><P><SPAN style="color: #ff0000;">          Set objMail = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">          Set objOutlk = Nothing</SPAN></P><P><SPAN style="color: #ff0000;">           Msgbox  Path</SPAN></P><P><SPAN style="color: #ff0000;">    Msgbox " Mail delivered"</SPAN></P><P><SPAN style="color: #ff0000;">end function</SPAN></P></BODY></HTML> Fri, 11 Apr 2014 07:20:18 GMT https://community.qlik.com/t5/QlikView/Macro-to-export-and-mail/m-p/625866#M230143 Anonymous 2014-04-11T07:20:18Z