[Resolvido]Enviar Relatório Por e-mail

Gostaria de Saber como enviar um relatório por e-mail onde cada registo tem um endereço de mail que está no access.

Isto é imagem um relatório de 100 paginas que pertencem a 50 destinatários, esses destiantários todos têm mail registado e pretendo enviar os registos de acordo com o e-mail, ou seja se um destinatário tem apenas um registo então só vai receber esse registo e não os 100 registo.

Não sei se percebm a minha dúvida?

Se estiver associado a um registo no form, para abrir esses registo no Relatório, pode utilizar uma macro para enviar o relatório por email. Tem isso a funcionar dessa maneira?

em cada registo está o e-mail do destinatário

Então se o relatório apresenta o registo do formulário, pode ir a Macro: Vá a Macro, Novo, seleccionar objecto e preencha.

Ok Vieira,
Mas como faço para colocar o e-mail dos diferentes destinatários:
Registo1 : mail:1@mail.pt
Registo2: mail:2@mail.pt
etc.
Obrigado

Ah, isso é outra coisa diferente. Tem aqui no fórum, pode procurar. Ainda recentemente o Criquio colocou isso, salvo erro. O TopBr, outro colega também tem mais que um exemplo no Fórum. Email com anexo. Localize no repositório de exemplos.

Vieira,

Ja testei esse exemplo, nao é isso que pretendo.
O que eu pretendo é uma macro ou codigo que permita quando eu escolher a opção enviar relatório selecione os registos que terão que ser enviados e vai pegar no e-amil e enviar o respectivo resgisto em formato, por exemplo snp, e envia para cada um dos e-mail dos registos seleccionados.
Se os registos a enviar forem 20 e estejam 20 e-mail diferentes, ex. 20 clientes diferentes, então vai criar automaticamente 20 e-mails com o respectivo anexo.
Não sei se me faço entender!

Amigo:

Procure no repositório, tem outros exemplos lá.

No exemplo que postei dias desses para um colega... e no repositorio creio que o pablo postou um código...

Onde voce digita o endereço do Detinatário: FulanoDeTal@hotmail.com; SicranoDeTal@hotmail.com....

Acima no código.. Crie variaveis....

Dim E-mail_1, Email_2, E-Mail_3........As String
Iguale essa variável a seu campo na tabela através do Dlookup....
Dim E-mail_1 = Dlookup... e tal...

Depois na linha do Detinatário... chame a variável.....

Creio que é por ai...

Saudações

Private Sub Form_Open(Cancel As Integer)
' variável que representa o mês corrente
'Aqui se coloca o dia que quer que seja enviado, faz a checagem na pasta relatórios no Dir do BD, se ja tiver os PDF criados não os envia, se não os cria e envia. Isso e feito uma vez por mes para o meu caso
'se o dia do mês for maior ou igual a 25 e o arquivo mês-ano.pdf ainda não existir, então...
'If Day(Date) >= 12 And Len(Dir(CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then
If Day(Date) >= 25 And Len(Dir(CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then

DoCmd.SetWarnings False
' cria o pdf na subpasta Relatórios com nome "mês-ano.pdf"
'DoCmd.OutputTo acOutputReport, "Nome do Relatorio", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreenDoCmd.SetWarnings True
' cria as variáveis dos objetos cdo eenvia o email
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") = "E-Mail de quem envia@Gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Senha"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With
Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "Mensagem"
.Sender = "E-mail de quem envia"

.Subject = "Relatórios Administrativos da Unidade Prisional de Mineiros"
.HTMLBody = "Segue em anexo (PDF) os relatórios de inspeção e quantitativos do CIS Mineiros-GO"
.To = "Destinatário_emai"
' a linha abaixo pega o pdf criado e anexa à mensagem
'.AddAttachment CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Fechado_" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Albergue_" & Format(Now, "mm-yyyy") & ".pdf"

.Send
End With
MsgBox "E-mail's enviados com sucesso." & vbCrLf & _
"Foram criados na pasta Relatórios, os arquivos em PDF do corrente mês", vbOKOnly + vbInformation, "Relatórios enviados"
Set Mens = Nothing
Set Config = Nothing
Exit Sub
Else
Exit Sub
End If
End Sub

Amigos teria um aplicativo desse para demostrar como funciona esses códigos?