Macro envio Email

[Anonymous]

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

[rphpacheco]

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 · Accepted solution]

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!