[Resolvido]Envio de emails um a um

Bom dia !!
Estamos utilizando um exemplo de código que ajustei em cima de um exemplo do JPAULO.
O meu ajuste gera um único email para todos os nossos clientes cadastrados. Só que os spams estão bloqueando alguns por se tratar as vezes de mais de 100 emails por mensagem.
Seria possível algum dos mestres me auxiliar como posso aproveitar este código para gerar um email para cada destinatário ?
Segue código :

' JPaulo ® 2008
Private Sub btenvio_Click()
Dim intCont As Integer, strDest As String

With Me.lstNomes
If IsNull(.ItemData(0)) Then 'não foi selecionado nenhum nome.
MsgBox "Não existe dados - Favor informar ao administrador do sistema!", _
vbExclamation, "Envia e-mail"
Exit Sub
Else
For intCont = 0 To .ListCount - 1
If .Column(1, intCont) <> "" Then
strDest = strDest & .Column(0, intCont) & ";"
End If
Next intCont
End If
End With
Dim origem As String, Caminho(4) As String, pula As String
origem = GetPathPart
pula = Chr(10) & Chr(13)
Call InitializeOutlook
Set objNewMail = gOLApp.CreateItem(olMailItem)
With objNewMail
.BCC = (strDest)
.HTMLBody = Me!txcorpo
.Subject = Me!txtTitulo
.Display
End With
MsgBox "Enviado com sucesso!!!"
Me!txtTitulo = ""
Me!txcorpo = ""
Me!Anexo = ""
End Sub

Não tenho como testar, mas talvez mudando o End If e o Next intCont de lugar;

teste;




' JPaulo ® 2008
Private Sub btenvio_Click()
Dim intCont As Integer, strDest As String
Dim origem As String, Caminho(4) As String, pula As String
origem = GetPathPart

With Me.lstNomes
If IsNull(.ItemData(0)) Then 'não foi selecionado nenhum nome.
MsgBox "Não existe dados - Favor informar ao administrador do sistema!", _
vbExclamation, "Envia e-mail"
Exit Sub
Else
For intCont = 0 To .ListCount - 1
If .Column(1, intCont) <> "" Then
strDest = strDest & .Column(0, intCont) & ";"

pula = Chr(10) & Chr(13)
Call InitializeOutlook
Set objNewMail = gOLApp.CreateItem(olMailItem)
With objNewMail
.BCC = (strDest)
.HTMLBody = Me!txcorpo
.Subject = Me!txtTitulo
.Display
End With

End If
Next intCont
End If
End With
MsgBox "Enviado com sucesso!!!"
Me!txtTitulo = ""
Me!txcorpo = ""
Me!Anexo = ""
End Sub

Bom testei e não funcionou.
Mudando um pouco o caminho inicial que fizemos.
Este código fica dentro de um botao enviar no formulário.
O campo email fica dentro da consulta chamada de qry aniversariantes.
Seria possível vc me ajudar pensando em algum código que crie um Loop que realizaria um envio de email para um destinatario antes de seguir para outro destinatario diferente ?
exemplo:
coluna email
-------------------
ssssss@bol.com.br
ssssssss@uol.com.br
O código iria a consulta qry aniversariantes . faria um check se existe email para enviar e iria buscando email a email. Em cada email seria feita a rotina de enviar antes do código buscar outro email cadastrado para envio.
Procurei algo no forum mas nao encontrei
abs
Leo Lobo

Como o JPaulo mudou cria um para cada endereço, simplesmente não está a enviar, apenas mostra porque tem o .Display, se tiver o .Send deverá funcionar.

Bom dia !!
O que acontece é que se a caixa de listagem tiver 20 emails por exemplo a pessoa que estiver dentro desta recebe 20 vezes o mesmo email.
Por isso mantive o Display para não enviar para evitar desgaste com o cliente.
Se puder me auxiliar agradeço !!

Boa noite, Leo
Só mostrando este código fica difícil preparar alteração adequada

Oi Alexandre tudo bem !!
Na verdade tenho uma consulta baseada em uma tabela com um campo "email" selecionado
conforme abaixo
email
leo@uol.com.br
alexandre@bol.com.br

Ja estou aceitando receber uma nova ideia pois da minha maneira os servidores estado devolvendo tudo como spam.
A ideia seria fazer um loop enviando um email por cada destinatario para ver se conseguimos se proteger dos bloqueios contra spam.
Como estes emails sao de clientes que nos autorizaram a enviar tenho a certeza de que estou enviando algo que nao e sujeira para a web.
Se tiver uma ideia agradeco !!

Bom dia,
Crie um recordset com os endereços e um ciclo que, em cada um, envie a mensagem pretendida

Creio que este exemplo faz isto. Envia aos selecionados na lista.

http://maximoaccess.forumeiros.com/t3189-envio-de-e-mail-com-anexos-usando-form-de-envio-atraves-do-access

Cumprimentos.