topic Re: Macro e-mail in Brasil

Macro e-mail

marcelviegas — Fri, 15 Dec 2017 17:07:01 GMT

Pessoal localizei uma macro aqui no forum adaptei ela, ela toda até o final sem apresentar erro só que o e-mail não chega.

Segue abaixo:

sub sendMail

Dim objEmail

Const cdoSendUsingPort = 2 ' Send the message using SMTP

Const cdoAnonymous = 0 'Do not authenticate

Const cdoBasic = 1 'basic (clear-text) authentication

Const cdoNTLM = 2 'NTLM

Const SMTPServer = "192.168.5.6"

Const SMTPPort = 25 ' Port number for SMTP

Const SMTPTimeout = 60 ' Timeout for SMTP in seconds

'Sending mail

Set objEmail = CreateObject("CDO.Message")

Set objConf = objEmail.Configuration

Set objFlds = objConf.Fields

With objFlds

'---------------------------------------------------------------------

' SMTP server details

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxx"

.Update

'---------------------------------------------------------------------

End With

objEmail.To = "marcel.viegas@divinaprovidencia.org.br"

objEmail.From = "marcel.viegas@divinaprovidencia.org.br"

objEmail.Subject = "test"

objEmail.TextBody = "message de test"

objEmail.Send

Set objFlds = Nothing

Set objConf = Nothing

Set objEmail = Nothing

msgbox ("Test Mail Sent")

end sub

Re: Macro e-mail

nicolett_yuri — Fri, 15 Dec 2017 17:09:58 GMT

Quando termina a execução, aparece a mensagem "Test Mail Sent" na sua tela?

Re: Macro e-mail

marcelviegas — Fri, 15 Dec 2017 17:16:52 GMT

Sim

Re: Macro e-mail

nicolett_yuri — Fri, 15 Dec 2017 17:22:05 GMT

O código em si não parece ter problema.

Veja se realmente este servidor SMTP esta aceitando essa configuração, faça um teste de envio por telnet

Como Enviar um Email Usando a Telnet: 8 Passos

Re: Macro e-mail

Clever_Anjos — Fri, 15 Dec 2017 17:33:45 GMT

Veja no log do SMTP se o e-mail chega para ser enviado
Verifique a caixa de SPAM

Re: Macro e-mail

marcelviegas — Fri, 15 Dec 2017 17:38:46 GMT

Onde vejo o log? eheheh

Re: Macro e-mail

marcelviegas — Fri, 15 Dec 2017 18:09:12 GMT

recebi o e-mail

Re: Macro e-mail

nicolett_yuri — Fri, 15 Dec 2017 18:12:08 GMT

O servidor que você se conectou no teste do TELNET é diferente do que esta no seu script, inclusive a conta que esta fazendo o disparo!

Const SMTPServer = "192.168.5.6"

objEmail.From = "marcel.viegas@divinaprovidencia.org.br"

Re: Macro e-mail

marcelviegas — Fri, 15 Dec 2017 18:47:24 GMT

Sim eu coloquei o dominio que apareceu ali, mas eu entrei com o telnet 192.168.5.6 25

eu recebi o e-mail de teste como marcel.viegas@divinaprovidencia.org.br

Estranho

Re: Macro e-mail

nicolett_yuri — Fri, 15 Dec 2017 18:54:57 GMT

Veja com o pessoal responsável, eles vão te orientar de qual endereço IP/Porta e conta para realizar os disparos.

Re: Macro e-mail

marcelviegas — Fri, 15 Dec 2017 19:11:15 GMT

Obrigado yuri o ip que me passaram foi "192.168.5.6".