[Resolvido]enviar email

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

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

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

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

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

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

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

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

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.

Olá, obrigado pelo retorno.
Quanto a isso terá que verificar, não tenho como ajudar.
Abraço

boa tarde, consegui resolver. Valeu ahteixeira belas dicas