[Resolvido]dúvida com lista de emails

Saudações,

Estou quase terminando meu projeto graças a ajuda encontrada aqui e gostaria de mais uma vez contar com os préstimos desta excelente comunidade:

Tenho o seguinte problema a resolver:

- Meu formulário envia um email com um pdf do reltório "tal" já filtrado ao cliente cujo registro está ativo, utilizando o campo "email" do formulário quanto a isso não tenho dúvida e já foi solucionado, a rotina que uso é a seguinte:

Código:


Dim Destinatario    As String
Destinatario = Me!email
objMail.AddRecipient Destinatario


É possível fazer uma modificação para que o formulário envie um determinado relatório para todos os emails de clientes filtrados por uma condição, por exemplo:

Enviar para todos os clientes cujo status seja "em débito" no campo "status"


Agradeço qualquer ajuda

Você pode usar um Recordset e fazer um loop pelos dados da tabela que corresponder ao filtro. Algo como:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Email FROM NomeDaTabela WHERE Código=" & Me.Código & "")
...

Do While Not rs.EOF
objMail.AddRecipient rs!Email
...
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Como não temos o código completo que está usando, aqui tambem ficou resumido, mas acredito que consigas adaptar.

Vou testar e dou um retorno

Obrigado
Sucesso

Logo na primeira instrução apresenta erro de operador faltando:

Erro de sintaxe (operador faltando) na expressão de consulta 'status=Inadimplente'.

O código completo

Código:

Private Sub Comando119_Click()
On Error GoTo Erro

Dim Destinatario    As String
Dim objMail As New jmail.Message, vSMTP As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT email FROM vendas WHERE status=" & Me.status & "")
vSMTP = "mail.dominio.com" 'Servidor SMTP
Destinatario = Me!email

DoCmd.OpenReport "qryvendas", acViewPreview, , "[numero]=" & "'" & Me![numero] & "'", acHidden

DoCmd.OutputTo acOutputReport, "qryvendas", acFormatPDF, "C:\Relatorio.pdf"

DoCmd.Close acReport, "qryvendas"


objMail.From = "email@emaul.com"
objMail.FromName = "Fulano de tal"
Do While Not rs.EOF
objMail.AddRecipient rs!email
objMail.MailServerUserName = "email@email.com"
objMail.MailServerPassWord = "senhaxxxx"

objMail.Subject = "Assunto do email"
objMail.Body = "Prezado(a) Cliente," & vbCrLf & _
"bla bla bla bla."

objMail.AddAttachment "C:\Relatorio.pdf", True

rs.MoveNext
Loop

If objMail.Send(vSMTP) Then
MsgBox "E-mail enviado com sucesso!", vbInformation + vbOKOnly, "E-mail enviado"
Else
MsgBox "Ocorreu um erro ao enviar o e-mail." & vbCrLf & objMail.Log, vbCritical + vbOKOnly, "Erro"
End If

rs.Close
Set rs = Nothing
Set objMail = Nothing

Sair:
Exit Sub
Erro:
MsgBox Err.Description & vbCrLf & objMail.Log, vbCritical + vbOKOnly, "Erro " & Err.Number & " no envio do e-mail"
Resume Sair
End Sub

Ao que parece, o campo é tipo texto e não número. Nesse caso, precisa adicionar aspas simples:

Set rs = CurrentDb.OpenRecordset("SELECT email FROM vendas WHERE status='" & Me.status & "'")

Funcionou perfeitamente, entretanto está enviando um monte de pdfs para cada cliente com o status determinado, provavelmente por que ainda não setei a consulta para definir o relatório que será enviado, vou testar e dou o retorno, de qualquer forma agradeço imensamente ao amigo Criquio pela ajuda

Funcionou perfeitamente
Agradeço imensamente

Fique com Deus
Sucesso

Grato pelo retorno.