Enviar email com base em uma data específica

Olá pessoal, sou novo por aqui e não tenho muito conhecimento em programação, porém estou tentando desenvolver um banco. Com base em alguns exmplos do Fórum consegui fazer precisa, mas agora estou batendo cabeça para aprimorar o trabalho. Tenho um formulário com um botão para enviar email com base no registro atual, porém preciso que o email seja disparado automaticamente quando o campo DtVencimento for igual a data de hoje.

Segue o código que estou usando no botão ao clicar, algúem consegue me ajudar?

Valeu!

Private Sub Notificar_Click()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

With myItem
.To = Me.Email.Value
.Subject = Me.COD.Value & " " & Me.Nome.Value & " - Versão " & Me.NRevisao.Value
.Body = Me.NFocal.Value & ", o documento acima vencerá em " & Me.Texto24.Value & ". Segue anexo a última versão do documento para inicico do processo de revisão."
.Save
myAttachments.Add Me.Rota.Value
.send
End With

End Sub

Olá, seja bem vindo ao fórum!

Primeiro, seria interessante colocar um campo na tabela para gerenciar se o email já foi enviado ou não. Isso porque ao colocar isso de forma automática, vamos supor que você abra o aplicativo e será feita a verificação da data de vencimento e o email será enviado para as datas já vencidas. Se por algum motivo o aplicativo for fechado e precisar abri-lo novamente, o email será novamente enviado. Assim sendo, ao enviar o email, colocaria-se um "Enviado" nesse campo que pode se chamar Status. Na função, programa-se para enviar apenas para os registros cuja data já tenha vencido e cujo Status seja diferente de "Enviado".

Na sua função, pode acrescentar algo assim:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE DataVencimento>=#" & Date & "# And Status <> 'Enviado'"

If rs.RecordCount > 0 Then

Do While Not rs.EOF

Seu código já existente aqui, mudando os campos do form para os da tabela (rs!Email no lugar de Me.Email.Value por exemplo)

CurrentDb.Execute "UPDATE NomeTabela SET Status ='Enviado'"
rs.MoveNext
Loop

End If

rs.Close
Set rs = Nothing

A linha do UPDATE passa o campo Status para "Enviado" para evitar que o email seja enviado novamente.

Criquio, obrigado pela resposta, mas agora não esta enviando o email, mesmo clicando no botão, veja se fiz algo errado, só troquei o nome de alguns campos pelo nome dos campos da tabela. Não dá mensagem de erro, porém não acontece nada.

Obrigado

Private Sub Notificar_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TCadastroDoc WHERE Alerta>=#" & Date & "# And Status <> 'Enviado'")
If rs.RecordCount > 0 Then
Do While Not rs.EOF

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
Set myAttachments1 = myItem.Attachments

With myItem
.To = rs!Email
.Subject = rs!COD & " " & rs!Nome & " - Versão " & rs!NRevisao
.Body = rs!NFocal & ", o documento acima vencerá em " & Me.DtVencimento.Value & ". Segue anexo a última versão do documento para inicico do processo de revisão."
.Save
myAttachments.Add rs!Rota
myAttachments1.Add rs!Rota1
.send
End With

CurrentDb.Execute "UPDATE TCadastroDoc SET Status ='Enviado'"
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

End Sub