[Resolvido]Alerta de Aniversariantes enviar email automatico

Boa noite JPaulo

Estive a ver este teu programa https://www.maximoaccess.com/t795-alerta-de-aniversariantes-envia-email-automatico

esta uma maravilha

com esse exemplo implementei numa base de dados de uma associação e de semana funciona muito bem, mas ao fim de semana não a ninguém para rodar o programa.

Queria emitir a sexta feira o mail para os sócios que fazem anos ao sábado e domingo ??

No Outlook tem uma opção de atraso de entrega para o dia e hora que pretende-mos mas não consigo enviar via Access.

Alguém que possa ajudar?

Muito Obrigado

Boas pessoal

problema resolvido

ficou uma maravilha, aqui esta o resultado

objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"

Olá Ventura,

Obrigado pelo retorno, o fórum agradece.

Abraço

Bom dia bacano,

Como sou um pouco leigo na programação nos Módulos, gostaria de fazer uma pergunta que para vocês programadores é até óbvia demais.
Gostaria de saber onde implemento essa linha que você descreveu:

objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"

Espero não ter sido inconveniente com os amigos.

Att,

Valdenir

Ola Valdenir, boa tarde
No formulário crias um botao neste caso  EnviarEmail
e no [Procedimento de Evento] ao Fazer clique inseres este codigo no Módulo

ele abre o Outlook e so manda o mail um dia depois

'--------------------------------------------------------------------
Private Sub EnviarEmail_Click()
Dim rst As DAO.Recordset
Dim strSql As String
Dim strDestinatarios As String
Dim objOut As Outlook.Application
Dim objMail As Outlook.MailItem

strDestinatarios = ""
Set objOut = New Outlook.Application
Set objMail = objOut.CreateItem(olMailItem)
Me.Recalc
'-----------------------------------------------------------------------
'Passando os valores do formulário exemplo para os itens de email
'-----------------------------------------------------------------------

   strSql = "SELECT * FROM FichaSocio WHERE (((Format([DataNascimento],""mmdd""))=Format(Date(),""mmdd"")) AND ((Situacao)<>""Falecido"")) "
   Set rst = CurrentDb.OpenRecordset(strSql)
   Do Until rst.EOF
          strDestinatarios = strDestinatarios & rst("NumeroMatricula") & "; "
          strDestinatarios = strDestinatarios & rst("EmailOutro") & "; "
          rst.MoveNext
   Loop

strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 2)
If Len("" & strDestinatarios) < 5 Or strDestinatarios = "" Then
   '    MsgBox "Primeiro informe a quem quer mandar o E-Mail", vbOKOnly + vbCritical, "Obrigado"
       Exit Sub
End If
'objMail.To = strDestinatarios
objMail.BCC = strDestinatarios
objMail.Subject = "Feliz Aniversário"
objMail.HTMLBody = "Caro Amigo" & vbCrLf & vbCrLf & "A Direção do " & DLookup("[NomeFirma]", "DadosPrograma") & " e os seus colaboradores, desejam-lhe um feliz dia." & "

" & fncLerArquivo(fncLocalBd & "\assinaturas\avel.htm")
objMail.SentOnBehalfOfName = DLookup("[EmailFirma]", "DadosPrograma")

' COLOCAS AQUI, ASSIM ELE SO MANDA O MAIL UM DIA DEPOIS AS 08 Horas

objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"

objMail.Display
'objMail.Send
If Weekday(Date) = 1 Then
  Call EnviarEmailSabado
End If
End Sub