Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Anonymous
Not applicable

Macro envio Email

Boa tarde pessoal,

peguei uma macro esses tempo aqui na community para envio de e-mails, funciono perfeitamente como eu queria pelo desktop, mas agora estou tentando executa-la no servidor e não esta dando certo.. Alguém poderia me dizer se ta faltando alguma coisa?

sub TesteEmail

Set objMsg = CreateObject("CDO.Message")

Set msgConf = CreateObject("CDO.Configuration")

  'Server Configuration

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ' (stmp.server.local)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' (porta é essa mesmo)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0  ' (não tem autenticação de Usuário e senha no servidor)

'End With

  objMsg.To =  ' email

  objMsg.From = ' email

  objMsg.Subject = "teste titulo"

  objMsg.HTMLBody = "teste e-mail server"

  objMsg.Sender = "Mr. Name"

  Set objMsg.Configuration = msgConf

  objMsg.Send

  Set objMsg = nothing

  Set msgConf = nothing

end sub

Labels (2)
1 Solution

Accepted Solutions
Anonymous
Not applicable
Author

faltava uma configuração de SSL:

Server Configuration

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ' (stmp.server.local)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' (porta é essa mesmo)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 0

msgConf.Fields.Update

Agora funcionou!

View solution in original post

3 Replies
rphpacheco
Creator III
Creator III

Bom dia Rodrigo.

Verifique se não existe nenhuma restrição na máquina que roda o server qlik para a porta utilizada no envio de emails.

Tive um problema assim aqui onde trabalho.

Abs.

nicolett_yuri

Como você esta tentando executar essa macro?

Anonymous
Not applicable
Author

faltava uma configuração de SSL:

Server Configuration

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ' (stmp.server.local)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' (porta é essa mesmo)

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 0

msgConf.Fields.Update

Agora funcionou!