Atualizar data do ultimo email enviado (utilizo o email CDO fornecido pelo criquio)

senhores bom dia.
utilizo o email cdo (modelo postado pelo mestre Criquio) e gostaria de atualizar o campo dataUltimoEmail da tblContatos, com a data em que foi enviado o último email para o contato, sendo que a cada envio de email esta data deverá ser atualizada.
segue em anexo o projeto, a senha é 123456
não sei como criar, poderiam me ajudar?

grato, João Batista

No botão enviar;



Private Sub btnEnviar_Click()

If IsNull(Me.txtNome) Or Me.txtNome.Value = "" Then
MsgBox "Campo Nome é de preenchimento obrigatório", vbOKOnly + vbCritical, "Campo vazio"
Me.txtNome.SetFocus

ElseIf IsNull(Me.txtPara) Or Me.txtPara.Value = "" Then
MsgBox "Campo Email é de preenchimento obrigatório", vbOKOnly + vbCritical, "Campo vazio"
Me.txtPara.SetFocus

ElseIf IsNull(Me.txtassunto) Or Me.txtassunto.Value = "" Then
MsgBox "Campo Assunto é de preenchimento obrigatório", vbOKOnly + vbCritical, "Campo vazio"
Me.txtassunto.SetFocus

Else
DoCmd.OpenForm "frmProgresso"
Forms!frmProgresso!lblInfo.Caption = "Enviando dados..." & vbCrLf & "Esse processo pode levar vários minutos dependendo o tamanho dos arquivos enviados e da velocidade da Internet." & vbCrLf & vbCrLf & "Por favor, aguarde..."

Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\EmailCDO_be.mdb", False, False, "MS Access;PWD=123456")
Set rs = db.OpenRecordset("select * from tblContatos where Email='" & Me.txtPara.Value & "'")
rs.Edit

rs("dataUltimoEmail").Value = Date

rs.Update
rs.Close


Call EnviarEmail

Call Armazenar
DoCmd.Close acForm, "frmProgresso"
Call LimpaCampos
End If
End Sub

mestre JPaulo, mais uma vez sou grato.
sou um ignorante no assunto, e tudo o que consegui construir até agora foi fruto de muito esforço, estudo, muitas noites sem dormir, mas principalmente com a ajuda e orientação dos mestres aqui do fórum.
um abraço e o meu muito obrigado a todos.
João Batista

Obrigado pelo retorno o forum agradece.

JPaulo, apesar de ter finalizado o tópico, encontrei um problema.
quando envio email para 1 destinatário, o processo roda normal, só que quando insiro um grupo de destinatários, dá erro. segue anexo

JPaulo, quando envio emails para mais de um destinatário dá erro.
tentei mais não consegui resolver.
seria possível um auxilio.
grato,
João batista

Tem razão porque os endereços estão separados por ponto e virgula ;

Vou dar uma testada aqui.

Fiz alguma alterações, teste e retorne por favor;

Aqui o exemplo do seu BD:
Download



Private Sub lstEmails_Click()
Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\EmailCDO_be.mdb", False, False, "MS Access;PWD=123456")

Set rs = db.OpenRecordset("select * from tblContatos where Email='" & Me.lstEmails.Column(1) & "'")
rs.Edit

rs("dataUltimoEmail").Value = Date

rs.Update
rs.Close

Set rs = Nothing
Set db = Nothing
End Sub

JPaulo boa noite.
amigo ficou joia, agradeço muitíssimo a tua ajuda.
tudo está funcionando perfeitamente bem.

Tenho outra questão relacionada ao envio de emails.
Tenho mais de 20000 clientes cadastrados, e gostaria de diariamente enviar emails promocionais para meus clientes.
Acontece que se eu enviar 20.000 emails de uma única vez pelo Outlook, os emails serão bloqueados pelo provedor.
Imaginei de enviar através de uma conta de Gmail. Sinceramente não sei como o Gmail irá se comportar em relação a quantidade de destinatários.

Pensei em criar uma rotina da seguinte maneira:
Total de clientes / 20 dias = 1000 emails por dia.
total de emails por dia (1000) / 6 horas = 166 emails por hora / 2 = 83 emails a cada 30 minutos.

O aplicativo estaria enviando automaticamente a cada 30 minutos 83 emails para os cliente já filtrados (utilizando a mecânica acima), sendo que não poderá ser enviado 2 emails para o mesmo cliente.

A ideia é criar tipo um "MailChimp", onde eu poderia criar "campanhas promocionais", e enviá-las para todos os meus clientes.

Tenho só um problema. Sinceridade, não sei nem por onde começar.

o que pretendo fazer é possível?
você teria algum modelo para me fornecer?

agradeço o teu empenho na situação anterior,aguardo retorno.
João Batista