Skip to main content
Woohoo! Qlik Community has won “Best in Class Community” in the 2024 Khoros Kudos awards!
Announcements
Nov. 20th, Qlik Insider - Lakehouses: Driving the Future of Data & AI - PICK A SESSION
cancel
Showing results for 
Search instead for 
Did you mean: 
brunoducatti
Creator
Creator

Problema com e-mail via macro

Boa tarde pessoal! Alguém utiliza envio de e-mail por macro no Qlikview está com problemas?

Tenho uma rotina que funcionava normalmente e parou de funcionar. Tentei fazer testes fora do ambiente da empresa, apenas local com conta de e-mail particular para ver se poderia estar relacionado com alguma mudança de configuração do ambiente da empresa, mas também não funcionou. A macro é bem simples (segue abaixo), tentei testar agora com gmail mas também não funcionou.

 

Sub Mail

set objExcel=ActiveDocument.GetSheetObject("TB01") 'edit the sheet object
filepath="C:\Qlikview\estoque_p4.xls" 'edit the location of file
objExcel.ExportBiff filepath


Set MyEmail=CreateObject("CDO.Message")

MyEmail.Subject="Entrada em Estoque sem P4"
MyEmail.From="minhaconta@gmail.com"
'MyEmail.To="bruno_ducatti@hotmail.com"
MyEmail.TextBody="Segue anexo estoque P4."
MyEmail.AddAttachment "C:\Qlikview\estoque_p4.xls"

MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'SMTP Server
MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
'SMTP Port
MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
'SMTP Auth (For Windows Auth set this to 2)
MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
'Username
MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername")="minhaconta@gmail.com"
'Password
MyEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword")="senha"

MyEmail.Configuration.Fields.Update
MyEmail.Send

ActiveDocument.GetApplication.Quit

set MyEmail=nothing

End Sub

 

1 Reply
afurtado
Partner Ambassador/MVP
Partner Ambassador/MVP

Bruno, 

conta do gmail a porta para TSL é 587 e SSL é 465. Está a 25, não sei se o problema não pode ser este.

Além disto, creio que tem que colocar na segurança na conta google para  rodar em apps menos seguro ou se estiver rodando com verificação em duas etapas, tem que criar "senhas de app".

Eu tive uma necessidade um tempo atrás e colocando a porta certa e criando a "senhas de app" deu certo no meu caso.

 

furtado@farolbi.com.br