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
