[Resolvido]Envia Email para Cliente cadastrado

Bom dia!

Estou com uma ideai para implementar no meu banco de dados...

Tenho o cadastro de cliente, dentro do cadastro de cliente tenho um sub forms para cadastra os e-mail disponível pelo cliente
EX:

Endereço/Email Tipo de Rede Social autorização essa parte de AUTORIZAÇÃO trata se de uma caixa de seleção
Teste1@gamil.com Gmail sim
Teste2@Hotmail.com Hotmail sim
Teste3@Outlook.com Outlok sim


então gostaria de envia para os clientes os e-mail de uma só vez e para todos os e-mail cadastrados e que esteja autorizado

Como poderia fazer isso?

Anti mão agradeço pela ajuda.

Misson, boa tarde.

Eu adaptei um código que eu encontrei aqui no fórum, não lembro se era do JPaulo ou do Avelino. De qualquer forma, montei um exemplo, de acordo com a sua necessidade para tentar te ajudar.

O que eu criei foi uma tabela, onde estarão todos os seus endereços eletrônicos, com o campo Sim/Não para diferenciar quem está autorizado a receber ou não. Ao enviar o email, o código faz uma pesquisa em uma consulta já filtrada como "sim" no campo Enviar, para saber se está ou não autorizado.

Como não sei o que você vai querer enviar, deixei comentado no código VBA a opção que você tem que alterar caso queira anexar algum arquivo.

Espero ter ajudado.

Att.,
Marcelo.

Bom dia amigo!

Desculpa pela minha demora de te responder... muito legal seu exmeplo, ta me ajudando de mais.
Agora assim teria como eu fazer anexo de um arquivo? um ex: mandaria para os clientes as promoções do meus estabelecimento e as fotos dos produtos.
outro ponto seria a mudança de plataforma de email. em vez do outlook colocar o gamil? se não fosse abusar de mais deixa uma opção que eu pudesse escolher em qual plataforma manda.

Bom dia Misson,

Que bom que está ajudando.

Com relação ao anexo, no meu caso, eu criei um relatório que quando eu clico em mandar o email, o sistema exporta esse relatório para .PDF, ou outro formato que você desejar, anexa na mensagem e envia.

Sobre a plataforma para o envio do email, eu sei que Gmail tem opção de configurar o POP3/SMTP no outlook (assim como yahoo, uol e outras plataformas). Agora, enviar o email sem uma conta cadastrada no outlook eu não sei fazer. Vou estudar a respeito e se conseguir eu posto aqui!

Abs.,
Marcelo.

Seria possivel disponibilizá-lo para que eu possa utilizar. Pode enviar pro meu e-mail, se for o caso?

grato

José Silvio
jsilvio@veloxmail.com.br

Jose Silvio, boa tarde.

O BD de exemplo já está anexado nesse tópico. Basta você baixar para seu computador.

Att.,
Marcelo.

Acabei escrevendo uma mensagem de outro topico e enviei aqui. na verdade ja baixei o exemplo e funcionou perfeitamente. o que queria mesmo era pedir informação de como anexar um arquivo junto ao e-mail.

se vc em um exemplo e puder disponibiliar eu agradeco.

jsilvio

JSilvio,

Fiz as modificações para gerar o arquivo e anexar no email a ser enviado.

Espero ter ajudado.

Att.,
Marcelo.

bom dia!

Amigo o meu exemplo ta dando um erro quando coloco a mensagem e clico em enviar, fala que "item não encontrado nessa coleção"

Bom dia Misson,

Estranho.. tentei simular o erro mas não consegui. Nesse teste, basta você descompactar o arquivo, que já vai existir uma pasta Anexos, e enviar o email.

Abs.,
Marcelo.

boa tarde

vou te manda o exemplo de como ficou o frm de envio de email, olhe pra me quando tiver uma oportunidade por favor,

muito obrigado pela ajuda

Boa tarde.

Notei que você usa o Access 2016. Como eu uso o 2010 eu tive que desativar 2 referências pra funcionar aqui.

Tive que ajustar alguns detalhes, como indicar o nome da coluna correta na sua consulta onde estão cadastrados os emails.

Veja aí se funciona.

Abs.,
Marcelo.

Edit: Anexei o arquivo.

continua sem funcionar amigo o mesmo erro.

Misson,

Aqui pra mim está funcionando normalmente.

Bom dia! Obrigado pela ajuda e desculpa pela demora do retorno.
Muito obrigado pela ajuda !

coloca como resolvido