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
