Qlikview Email Macro (Array)

Macro to trigger Email from Qlikview

Function sendMails()

Dim ServerIP
Dim ServerPort
Dim FromAddress
Dim ToAddress(3)
Dim Message
Dim Subject
Dim Attachment(3)
Dim CC(3)

ToAddress(0)="xxxx@xxxx.com"
ToAddress(1)="yyyy@xxxx.com"
ToAddress(2)="zzzz@xxxx.com"
ToAddress(3)="aaaa@xxxx.com"

CC(0)="xxxx@xxxx.com"
CC(1)="yyyy@xxxx.com"
CC(2)="zzzz@xxxx.com"
CC(3)="aaaa@xxxx.com"


Attachment(0)="D:\test1.zip"
Attachment(1)="D:\Test2.ZIP"
Attachment(2)="D:\Test3.ZIP"
Attachment(3)="D:\Test4.ZIP"

ServerIP="100.100.100.100"
ServerPort="25"
FromAddress="aa.b@g.com"



for i=0 to 3


Subject="Test"
Message="Test"                                                                                                                                                                                                                                                                                                                                                                                                         

Set myMail=CreateObject("CDO.Message")

myMail.Subject=Subject
myMail.From=FromAddress
myMail.To=ToAddress(i)
myMail.Bcc=""
myMail.Cc=CC(i)
myMail.TextBody=Message

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =ServerIP

'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =ServerPort

myMail.Configuration.Fields.Update

myMail.AddAttachment Attachment(i)



myMail.Send


set myMail=Nothing
next

ActiveDocument.GetApplication.Sleep 12500

ActiveDocument.Save
ActiveDocument.GetApplication.Quit


End Function

Click here to download Scripts as text file

Qlikview Export To Excel Macro

Macro to export based on a column's value
For Every possible values  seperate excel file will be generated.

Sub Export1
ActiveDocument.ClearAll false
pathcorp="F:\TEST\"
set corp = ActiveDocument.GetSheetObject("CH02")
corp.ExportBiff  pathcorp & "TEST.xls"
ActiveDocument.Fields("REGION").Clear
set val=ActiveDocument.Fields("REGION").GetPossibleValues
set XLApp = CreateObject("EXCEL.application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add

for i=0 to val.Count-1
set MyTable = ActiveDocument.GetSheetObject("CH02")
path="F:\TEST\"
ActiveDocument.Fields("REGION").Select val.Item(i).Text
        MyTable.ExportBiff  path & val.Item(i).Text &".xls"
   
next
Set XLApp = Nothing
Set Table = Nothing

'Msgbox "Exported Sucessfully"
end sub

Click here to download script as txt file