Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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.
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
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
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
JochenAndries,
I'm a machine with 64-bit and everything is working perfectly.
The Qlikview which must be 32 bits.
Gleybson Fernandes
Check out this link too. http://www.citagus.com/citagus/blog/exporting-objects-and-sending-email-in-qlikview/
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.
This might help:
obj.SetValue "ShowSaveAS", "no"
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