[Resolvido]Aniversários

Gostava de saber se é possivel que o access envie um email no dia do aniversário (Data) do cliente em causa.
Obrigado

É possível claro, basta comparar a data atual com as datas de nascimento dos clientes, caso sejam iguais, envia o email.
Apenas se preocupe em não enviar mais de uma vez.

E é automático e como se faz isso?

Você pode usar o cdo para enviar o email. E no campo email, basta configurar para enviar para o(s) email(s) do(s) contato(s) cuja data de aniversário seja a data atual. Você irá precisar de um campo na tabela para marcar que o email já foi enviado, senão ficará enviando email toda hora que o aplicativo for aberto no dia.

Não há um exemplo para ver como é ou explicar por poucas palavras como se faz?

Aqui tem um exemplo de aplicativo que envia email: http://maximoaccess.forumeiros.com/t1103-registro-de-aplicativos-por-email

A função responsável por enviar o email é:

Sub EnviarEmail()

On Error GoTo errormail

Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ccsregistros@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senhadoemail"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "CCS Sistemas - Registro de softwares" 'quem envia

If Not IsNull(Me.txtEmail) Then
.Sender = Me.txtEmail 'email de quem envia
End If

.Subject = "Registro de software" 'Assunto
.HTMLBody = "Mensagem" 'Mensagem a ser enviada
.To = "email@provedor.com" 'email de destino

.Send ' envia
End With
MsgBox "Mensagem enviada com sucesso." & vbCrLf & vbCrLf & "A CCS Sistemas agradece pela confiança.", vbOKOnly, "Dados enviados"

Set Mens = Nothing
Set Config = Nothing
Exit Sub

erromail:
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description
End If

Set Mens = Nothing
Set Config = Nothing
Exit Sub

End Sub

Para enviar para mais de uma pessoa e pegando de uma tabela, você pode colocar colocar uma variável para capturar o email via Recordset, em um Loop, e ir colocando na variável. A função vai sendo executa a cada email encontrado. Supondo que a variável se chama varEmail, teríamos algo como:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE NomeCampoData=#" & Format(Now, "mm/dd/yyyy") & "#"")

Do While Not rs.EOF
varEmail = rs!Email
Call EnviarEmail
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Aonde tem .To = "email@provedor.com" na função de enviar o email, você coloca o nome da variável:

.To = varEmail

A variável varEmail deve ser declarada no escopo do módulo do formulário, ou seja, ela deve ser uma das primeiras linhas do módulo:

Option Compare Database
Option Explicit
Dim varFile As String

Aqui tem um artigo com tudo que você precisa para entender o funcionamento e a configuração do cdo.

Obrigado aos que ajudaram.