topic Re: help with macro to email pdf report in QlikView

topic Re: help with macro to email pdf report in QlikView https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683916#M1065049 <HTML><HEAD></HEAD><BODY><P>Does anyone have any suggestions on this?</P></BODY></HTML> Thu, 25 Sep 2014 07:28:04 GMT hopkinsc 2014-09-25T07:28:04Z help with macro to email pdf report https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683915#M1065048 <HTML><HEAD></HEAD><BODY><P>Hi all, </P><P>i am using the following macro to generate and send a report. the macro works on my machine and on our server, but it won't work on a clients server and i have no idea why. </P><P>function SendReport()</P><P></P><P></P><P>Set objFSO = CreateObject("Scripting.FileSystemObject")</P><P>  objFSO.DeleteFile("C:\QlikView\Reports\*.pdf"), DeleteReadOnly</P><P>  MsgBox("Files Deleted")</P><P></P><P></P><P>Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")</P><P></P><P>ReportID = "RP02" 'Set report   </P><P>vName = "Daily Report_" & Date &".pdf" 'Name of output pdf</P><P>PDFCreator.cStart("/NoProcessingAtStartup")</P><P>PDFCreator.cOption("UseAutosave") = 1 ' Enable autosave</P><P>PDFCreator.cOption("UseAutosaveDirectory") = 1 ' Use a specific save directory</P><P>PDFCreator.cOption("AutosaveDirectory") = "C:\QlikView\Reports\"' Set autosave directory</P><P>PDFCreator.cOption("AutosaveFormat") = 0 ' Use PDF file type (.PDF extension)</P><P>PDFCreator.cOption("AutosaveFilename") = vName ' set the filename</P><P>PDFCreator.cPrinterStop = FALSE</P><P>ActiveDocument.PrintDocReport "RP02", "PDFCreator" 'Export to PDF File</P><P>    Dim objEmail</P><P>    Const cdoSendUsingPort = 2     ' Send the message using SMTP</P><P>    Const cdoAnonymous = 0     'Do not authenticate</P><P>    Const cdoBasic = 1         'basic (clear-text) authentication</P><P>    Const cdoNTLM = 2         'NTLM</P><P>    SMTPServer = "HIDDEN"      'IP-address of your mailserver"</P><P>    Const SMTPPort = 25                 ' Port number for SMTP</P><P>    Const SMTPTimeout = 60              ' Timeout for SMTP in seconds</P><P>    'Sending mail</P><P>    Set objEmail = CreateObject("CDO.Message")</P><P>    Set objConf = objEmail.Configuration</P><P>    Set objFlds = objConf.Fields</P><P>    ActiveDocument.GetApplication.Sleep 5000</P><P></P><P></P><P>  </P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/sendusing">http://schemas.microsoft.com/cdo/configuration/sendusing</A><SPAN>") = 2</SPAN></P><P></P><P></P><P>'Name or IP of Remote SMTP Server</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/smtpserver">http://schemas.microsoft.com/cdo/configuration/smtpserver</A><SPAN>") = "HIDDEN"</SPAN></P><P></P><P></P><P>'Type of authentication, NONE, Basic (Base64 encoded), NTLM</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate">http://schemas.microsoft.com/cdo/configuration/smtpauthenticate</A><SPAN>") = cdoBasic</SPAN></P><P></P><P></P><P>'Your UserID on the SMTP server</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/sendusername">http://schemas.microsoft.com/cdo/configuration/sendusername</A><SPAN>") = "HIDDEN"</SPAN></P><P></P><P></P><P>'Your password on the SMTP server</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/sendpassword">http://schemas.microsoft.com/cdo/configuration/sendpassword</A><SPAN>") = "HIDDEN"</SPAN></P><P></P><P></P><P>'Server port (typically 25)</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/smtpserverport">http://schemas.microsoft.com/cdo/configuration/smtpserverport</A><SPAN>") = 25 </SPAN></P><P></P><P></P><P>'Use SSL for the connection (False or True)</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/smtpusessl">http://schemas.microsoft.com/cdo/configuration/smtpusessl</A><SPAN>") = True</SPAN></P><P></P><P></P><P>'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)</P><P>objEmail.Configuration.Fields.Item _</P><P><SPAN>("</SPAN><A class="jive-link-external-small" href="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout">http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout</A><SPAN>") = 60</SPAN></P><P></P><P></P><P>objEmail.Configuration.Fields.Update</P><P></P><P></P><P>'==End remote SMTP server configuration section==</P><P>    </P><P>    objEmail.To = "HIDDEN; HIDDEN"        'Email Recipient</P><P>    objEmail.From = "HIDDEN"                        'Email Sender</P><P>    objEmail.Subject = "Report"                        ' Subject</P><P>    objEmail.TextBody = "Please find attached today's report"        'Text Body</P><P>    'objEmail.AddAttachment   ("C:\QlikView\Reports\" & vName &".pdf")</P><P>    Dim objFSO, strFolder, objFile, strFileName</P><P>  Set objFSO = CreateObject("Scripting.FileSystemObject")</P><P>  strFolder = "C:\QlikView\Reports\"</P><P>  strFileName = ""</P><P>  For Each objFile In objFSO.GetFolder(strFolder).Files</P><P></P><P></P><P>  If Right(LCase(objFile.Name), 4) = ".pdf" Then strFileName = objFile.Path</P><P></P><P></P><P>  Next</P><P></P><P></P><P>  If strFileName <> "" Then objEmail.AddAttachment strFileName</P><P></P><P></P><P>    objEmail.Send</P><P></P><P></P><P>    MsgBox("Sent")</P><P>    Set objFlds = Nothing</P><P>    Set objConf = Nothing</P><P>    Set objEmail = Nothing</P><P>    </P><P>    end function</P><P>    </P><P></P><P>it gets as far as the line almost at the bottom ' If strFileName <> "" Then objEmail.AddAttachment strFileName' but stops after that, so it looks like its failing on the objEmail.Send part. </P><P></P><P>Can anyone help please?</P></BODY></HTML> Wed, 24 Sep 2014 14:05:26 GMT https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683915#M1065048 hopkinsc 2014-09-24T14:05:26Z Re: help with macro to email pdf report https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683916#M1065049 <HTML><HEAD></HEAD><BODY><P>Does anyone have any suggestions on this?</P></BODY></HTML> Thu, 25 Sep 2014 07:28:04 GMT https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683916#M1065049 hopkinsc 2014-09-25T07:28:04Z Re: help with macro to email pdf report https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683917#M1065050 <HTML><HEAD></HEAD><BODY><P>I've the same problem and I don't have solution</P></BODY></HTML> Wed, 13 May 2015 09:59:30 GMT https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683917#M1065050 stefano_marson 2015-05-13T09:59:30Z Re: help with macro to email pdf report https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683918#M1065051 <HTML><HEAD></HEAD><BODY><P>I think if it worked on one server and not on another then it will be caused by server settings and/or security measures. And there a lot of possibilities what could be wrong - it could be simply that the access rights on the filesystem aren't proper or to many / to large attachments or wrong server-ip/user/pw or the server will be blocked by the group policies or ....</P><P></P><P>It's not easy to find the reasons. I would try to simplify the whole thing and test the mail-server settings within the qmc (test mail), tests without attachments ... in an exclusion method.</P><P></P><P>- Marcus</P></BODY></HTML> Wed, 13 May 2015 11:29:32 GMT https://community.qlik.com/t5/QlikView/help-with-macro-to-email-pdf-report/m-p/683918#M1065051 marcus_sommer 2015-05-13T11:29:32Z