topic Re: Macro envio Email in Brasil

Macro envio Email

Anonymous — Wed, 30 Jul 2014 18:34:18 GMT

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

Re: Macro envio Email

rphpacheco — Fri, 01 Aug 2014 12:35:38 GMT

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.

Re: Macro envio Email

nicolett_yuri — Tue, 05 Aug 2014 02:56:56 GMT

Como você esta tentando executar essa macro?

Re: Macro envio Email

Anonymous — Wed, 06 Aug 2014 13:38:50 GMT

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!