[Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

boa noite pessoal eu mais uma vez preciso da ajuda de vocês gostaria de um código (formulário) no qual transformasse um relatório de produtos em pdf e enviasse para todos clientes  através do gmail. ..


abraço

Existem Vários Exemplos desse tipo aqui no Forum amigo! Vários mesmo e de diversas formas!

boa tarde FabioPaes desculpa a demora para responder eu ate havia pegado um modelo aqui no fórum porém aqui ele esta dando erro

veja o erro abaixo

Eu também utilizo essa bd para mandar mails, o erro não aparece se cada vez que abrires carregares no icon do envelope e a seguir no painel que abrir carregares em guardar.
Tens de fazer sempre isso quando abres o painel de email senão dá esse erro.
O problema é que tens de exportar os dados do teu email para o painel principal que sempre que abres tem o remetente vazio e ao carregares no envelope e guardares ele vai-te exportar o teu endereço de email e palavras passe para o painel principal para funcionar.
Pode ser feito de outra forma com subformulários ocultos mas não fiz porque é raro utilizar.

bom dia toyebom ainda está dando mesmo erro

Tenta este do WSenna acho mais completo

https://www.maximoaccess.com/t17109p21-enviar-formulario-relatorio-por-email#135145

boa noite toyebom me desculpa pela demora em responder mais ainda continua o mesmo erro da imagem da mensagem número 04 deve se problema na configuração do computador

bom dia toyebom  veja o codigo abaixa  o erro esta na linha .Send  no final coloquei a mensagem de erro que esta aparecendo
abraço

Function EnviarEmail()
 '  On Error GoTo erromail

Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

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") = [email] 'endereço do e-mail de quem envia
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [senhaEmail]
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

With Mens

If Not IsNull(Me.cxaCc) Then
.CC = Me.cxaCc
End If

If Not IsNull(Me.cxaCco) Then
.BCC = Me.cxaCco
End If

Set .Configuration = Config
.From = cxaDe 'nome de quem envia
.Sender = [email] 'email de quem envia.
.Subject = cxaAssunto 'caixa texto assunto
.TextBody = cxaMensagem & vbCrLf & vbCrLf & "________________________________" & vbCrLf & "Nome do Remetente" & vbCrLf & "Tel: (00) 0000-0000" & vbCrLf & "E-mail: endereco.de.email@gmail.com" & vbCrLf
.To = cxaPara 'caixa texto para quem vai o email"
'.Send 'envia

Dim L As Long
If Me.cxaListaAnexos.ListCount > 0 Then
For L = 0 To Me.cxaListaAnexos.ListCount - 1
.AddAttachment Me!cxaListaAnexos.Column(0, L)
Next L

Else
End If
.Send  ' O erro esta nesta linha
End With

DoCmd.Close acForm, "mensagemEmail"
MsgBox " Email enviado!", vbInformation, " Sispac"

Set Mens = Nothing
Set Config = Nothing
Exit Function

'erromail:
'MsgBox err.Number & " " & err.Description

'  MsgBox " Erro de execução", vbCritical, " Erro"
'  MsgBox " Erro de execução:  101", vbCritical, " Erro"
'  DoCmd.Close acForm, "envioEmail"

Set Mens = Nothing
Set Config = Nothing
Exit Function

End Function





obs: mensagem de erro ( não foi possivel enviar a mensagem para o servidor SMTP o codigo de erro de transporte foi 0x80040217 . A resposta do servidor foi not avaiilable )

bom dia Fabio e toyebom deu certo o erro que estava dando era na configuração do Gmail

muito obrigado a vocês