[Resolvido]Enviar e-mail com anexo dentro de campo no BD

Procurei muito, mas não achei uma solução.

Tenho uma tabela chamada TAB_NFE_PV. Nesta tabela, tenho o campo do tipo de dados Anexo com nome "Doc". Neste campo, incluímos alguns anexos.

Tenho um formulário, que está vinculado a TAB_NFE_PV, e possui o campo "Doc". O que eu preciso é que este anexo, que está no BD, seja anexado e enviado por email.. Ou então, que este anexo seja salvo em alguma pasta, para eu posteriormente usar o diretório para anexar o arquivo ao criar o procedimento de envio do email.
Muito obrigado.

Olá amigo!

Se estiver usando o CDO.Message é só passar o caminho do anexo para o parametro .AddAttachment

Veja este exemplo do grande Criquio e adapte. Bom trabalho

dropbox.com/s/7djvbrtuk3aoowv/EmailCDO1.mdb?dl=1

vieirasoft,

Muito bacana o modelo, mas o email não foi enviado. Tenho que alterar as configurações abaixo para as do meu email?

With Config

.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") = "evando@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minha passwordevando"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Olá Evando. Sim, tem que configurar com os dados do seu email. Eu enviei-lhe já preenchido um modelo para exemplo.

.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") = "evando@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minha passwordevando"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Se não for o gmail o seu gestor de correio, deve verificar as configurações do seu gestor

Não esqueça de marcar CDO for windows (versão) library

Sensacional. Deu muito certo. Só tive que alterar a configuração do gmail para permitir que aplicativos "menos seguros" façam login. Do contrário, o servidor bloqueia a comunicação.

Novamente, muito obrigado.

Que bom, obrigado pelo retorno. Bom trabalho