[Resolvido]enviar email

jntrindade 28/4/2017, 01:27

jntrindade: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009

Mensagem nº1

[Resolvido]enviar email

Mensagem jntrindade 28/4/2017, 01:27

boa noite a todos, preciso da ajuda de vocês tenho que enviar email pra varios usarios, ja baixei alguns exemplos aqui no forum mas nenhum do que baixei consegui enviar email eu estou me perdendo na configuração. Desde ja agradeço pelo ajuda.

Jorge

**Alvaro Teixeira** 28/4/2017, 03:33

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº2

Re: [Resolvido]enviar email

Mensagem Alvaro Teixeira 28/4/2017, 03:33

Olá,
Qual o exemplo (e metodo) que esta a usar?
Abraço

jntrindade 28/4/2017, 18:54

jntrindade

jntrindade: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009

Mensagem nº3

Re: [Resolvido]enviar email

Mensagem jntrindade 28/4/2017, 18:54

ja baixei varios exemplos mas não da certo. veja esse exemplo.

Anexos

EmailCDO.zip: Você não tem permissão para fazer download dos arquivos anexados.; (220 Kb) Baixado 64 vez(es)

**Alvaro Teixeira** 29/4/2017, 01:06

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº4

Re: [Resolvido]enviar email

Mensagem Alvaro Teixeira 29/4/2017, 01:06

Olá Jorge Trindade,

ns Sub EnviarEmail() deve configurar com os seus dados da conta gmail

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "testecdo@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "cdosys123"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Outra coisa, deve entrar na conta gmail (online) e verificar as configurações de permitir enviar email via SMTP de outros programas.

Se tiver dúvidas, veja no linka abaixo um excelente artigo do nosso colega Mestre Avelino Sampaio:
usandoaccess.com.br/tutoriais/enviar-email-usando-o-cdosys.asp?id=1
Copiar link e colar no browser

Abraço

jntrindade 29/4/2017, 20:15

jntrindade

jntrindade: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009

Mensagem nº5

Re: [Resolvido]enviar email

Mensagem jntrindade 29/4/2017, 20:15

Ja estou verificando to fazendo alguns teste vejam isso sera que e desse jeito? Quando eu mando uma mensagem pro meu proprio email a mensagem chega ate na caixa de entrada, mas quando eu encaminho pra outro diferente nao chega a msg.

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtps.bol.com.br"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jntrindade@bol.com.br"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

**Alvaro Teixeira** 29/4/2017, 23:01

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº6

Re: [Resolvido]enviar email

Mensagem Alvaro Teixeira 29/4/2017, 23:01

Olá Jorge,
Uma vez que não usa uma conta gamail e sim da bol.com.br
Deverá confirmar senpermite envio via SMTP e que configurações deve ter.
Exemplo: Porta, protocolo, etc.
Efetue uma pesquisa ou contate o fornecedor.
Abraço

jntrindade 30/4/2017, 16:00

jntrindade

jntrindade: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009

Mensagem nº7

Re: [Resolvido]enviar email

Mensagem jntrindade 30/4/2017, 16:00

ok vou verificar essa situação, valeu pelas dicas.

**Alvaro Teixeira** 1/5/2017, 01:35

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº8

Re: [Resolvido]enviar email

Mensagem Alvaro Teixeira 1/5/2017, 01:35

Olá, tente alterar esta linha:
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
para
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Abraço

jntrindade 1/5/2017, 18:19

jntrindade

jntrindade: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009

Mensagem nº9

Re: [Resolvido]enviar email

Mensagem jntrindade 1/5/2017, 18:19

boa tarde ahteixeira, perbebi o seguinte quando eu coloco o meu email e mais dois email diferentes ele encaminha legal a mensagem. Mas quando eu coloco o email individualmente nao vai.