Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Script for Exporting and Sending email

Hi Everybody,

Please help me the script to export the Qlikview documents into Excell/PDF file and the script to send email in Qlikview environment.

Many thanks,

Tai.

85 Replies
Not applicable
Author

Dear Gleybson,

what if i have x64 bit on Windows server 2008 ! i wonder is there any registry settings needs to be done to make this work !

Thanks anyway for your input.

Regards

Not applicable
Author

GM,

I'm here on business windows 2008 R2 64-bit and installed Qlikview 32 and 64 bits. The 64-bit I and development for 32-bit is just to run this script.

Any doubt

Gleybson Fernandes

Not applicable
Author

Sorry,

OS needs to be 32bit !!

I can't find the problem with the 64bit, I gave up searching and I'm using a 32bit-machine to automate our reports.

Jochen

Not applicable
Author

JochenAndries,

I'm a machine with 64-bit and everything is working perfectly.

The Qlikview which must be 32 bits.

Gleybson Fernandes

rfigueroa
Contributor III
Contributor III

Hi all, I've found the solution for 64 bits systems, it turns out that Bullzip have changed the ProgID in their COM object:

In MyPrintPDFWithBullZip change the line

set obj = CreateObject("Bullzip.PDFPrinterSettings")


for:

set obj = CreateObject("Bullzip.PdfSettings")

And you must add the next line:

obj.PrinterName = YourPrinterNameOnWindows

That's all.

I have this working on Windows server 2011 x64 & QlikView Server v11.0.11291 x64

Printer Driver is: Bullzip PDF Printer 9.0.0.1437

Bullzip PDF COM Object Help: http://www.biopdf.com/guide/pdf_api.php

BTW, thank you Jochen for such piece of code!!!

HPH

Roberto.

Qvmaster2019
Creator
Creator

This might help:

obj.SetValue "ShowSaveAS", "no"

Not applicable
Author

Hi  jochen,

I tried with your code. But makes everything as you said but except mail. Please help me to solve the issue,

i have created the mail function like

function mailrapport()

    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

    SMTPServer = "64.233.183.109"

    Const SMTPPort = 25                 ' Port number for SMTP

    Const SMTPTimeout = 60              ' Timeout for SMTP in seconds

    'Sending mail

    Set objEmail = CreateObject("CDO.Message")

    Set objConf = objEmail.Configuration

    Set objFlds = objConf.Fields

    With objFlds

        '---------------------------------------------------------------------

           ' SMTP server details

           .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer

           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

          .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout

           .Update

        '---------------------------------------------------------------------

    End With

    objEmail.To = "rkumaran@ustechdata.com"        'Email Recipient

    objEmail.From = "renjithkpzr@gmail.com"                        'Email Sender

    objEmail.Subject = "The name of the report"                        ' Subject

    objEmail.TextBody = "some text in the body of the mail"        'Text Body         

    objEmail.AddAttachment   "c:\PDFs\Operations\transactierapportPDP.pdf"    ' Attachement

    objEmail.Send

    Set objFlds = Nothing

    Set objConf = Nothing

    Set objEmail = Nothing

end function