sending sheet qlikview by email every day automatically

[#1]

hello all,

Can you tell me how to send a sheet (alla object in the sheet) by email automatically every day ?

I have not NPrinting and publisher

Thanks in advance

Regards

[Anonymous]

As per my knowledge it is not possible without nprinting or publisher. You can add macro to export object information post reload and then with the help of another macro(through excel) you can send the automated email.

Regards,

Imran K

[Colin-Albert]

You would need NPrinting to achieve this.

[ElizaF]

Check the solution from the below link:

Automated Excel Export and Email Macro

[HirisH_V7]

Hi ,

Make a try like this.

By reloading this Application.You will get a exported excel file to your Folder Path and for that you can create a trigger like sending a mail.

I hope this helps you.

Regards,

Hirish

[Anonymous]

Macro to send email from Excel;

Sub Email1()

Dim oSess As Object

Dim oDB As Object

Dim oDoc As Object

Dim oItem As Object

Dim direct As Object

Dim Var As Variant

Dim flag As Boolean

Dim Data As Object

Set oSess = CreateObject("Notes.NotesSession")

Set oDB = oSess.GETDATABASE("", "")

Call oDB.OPENMAIL

flag = True

If Not (oDB.IsOpen) Then flag = oDB.Open("", "")

If Not flag Then

MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH

GoTo exit_SendAttachment

End If

On Error GoTo err_handler

'Building Message

Set oDoc = oDB.CREATEDOCUMENT

Set oItem = oDoc.CREATERICHTEXTITEM("BODY")

oDoc.Form = "Memo"

oDoc.Subject = "Poor VOC Report"

oDoc.sendto = "user@org.com"

oDoc.postdate = Date

oDoc.Body = "Dear All," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Please find attached the Poor VOC Report." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Thanks & Regards," & Chr(13) & Chr(10) & "QlikView Team"

oDoc.SAVEMESSAGEONSEND = True

'Attaching DATABASE

Call oItem.EMBEDOBJECT(1454, "", "path")

oDoc.visable = True

'Sending Message

oDoc.SEND False

exit_SendAttachment:

On Error Resume Next

Set oSess = Nothing

Set oDB = Nothing

Set oDoc = Nothing

Set oItem = Nothing

'Done

Exit Sub

err_handler:

If Err.Number = 7225 Then

MsgBox "File doesn't exist"

Else

MsgBox Err.Number & " " & Err.Description

End If

On Error GoTo exit_SendAttachment

End Sub

Hope this helps

Imran K