send email using macro with AccessPoint

frinfo — Tue, 16 Oct 2018 14:15:22 GMT

Hi,

i've create a button with an action to call a macro that make some filter and after send an email.

Here's the code:

sub Export

ActiveDocument.Fields("Descrizione Raggruppamento 3 Clienti").Select "User1"

Set sel_val = ActiveDocument.Fields("Descrizione Raggruppamento 3 Clienti").GetSelectedValues

Path = "C:\" & sel_val.Item(0).Text & ".xls"

set obj = ActiveDocument.GetSheetObject("CH362")

obj.ExportBiff Path

call SendGMail(Path,"user1@mail.com")

end sub

Sub SendGMail(nomeFile,mail)

filepath=nomeFile

email = mail

Set objMsg = CreateObject("CDO.Message")

Set msgConf = CreateObject("CDO.Configuration")

'Server Configuration

msgConf.Fields.Update

'End With

objMsg.To = email ' type to mail id

objMsg.From = "test@mail.com" 'type from mail id

objMsg.Subject = "Customer Service Report"

objMsg.HTMLBody = "check the attachment"

objMsg.AddAttachment filepath ' Attachement object

objMsg.Sender = "Test Service"

Set objMsg.Configuration = msgConf

' Send

objMsg.Send

Msgbox("Email Sent Successfully")

' Clear

Set objMsg = nothing

Set msgConf = nothing

end sub

From qv.exe works but from browser don't work.

How can i solve?

Thanks

topic send email using macro with AccessPoint in QlikView