[Resolvido]Enviar email com relatório da Base de Dados em pdf

Bom dia,

Eu não tenho muita experiência em Access, no entanto estou a tentar criar uma base de dados e deparei-me com uma grande dúvida.
A minha intenção é enviar, ao clicar num botão, um relatório do Access por email para determinadas pessoas mas dá-me sempre erro.

O código que escrevi foi o seguinte, será que alguém me dá uma ajuda a descobrir porque não funciona? É que se eu tirar a linha .Attachments.Add o email segue.


Private Sub BotaoSalvar_Click()

If Nz(Ordem_Servico.Value, "") = "" Then
Ordem_Servico = ID
Me.Refresh

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "x"
.CC = "y"
.CC = "z"
.Subject = "Pedido de abertura de O.S."
.Body = "Serve o presente para ..."
.Attachments.Add "TBL_AberturaOS" , "*Pdf" --> Relatório da Base de Dados em pdf
.Send[/color]
End With

Set OutMail = Nothing
Set OutApp = Nothing

End If

DoCmd.RunCommand acCmdSaveRecord
Me.AllowEdits = False

End Sub

Obrigada

Vc tem que indicar o caminho do relatório, salvo em PDF.

veja se esta meu artigo lhe ajuda:

http://www.usandoaccess.com.br/dicas/dica8.asp?id=1#inicio

E este:

http://www.usandoaccess.com.br/tutoriais/tuto12.asp?id=1#inicio

Pode usar também o comando Docmd.sendObject, indicando para que seja anexo o relatório, no formato PDF (acFormatPDF).

Sucesso!

Muito Obrigada, funcionou!

Boa tarde mais uma vez. Eu coloquei o código abaixo e funcionou, no entanto o relatório em pdf aparece em branco, já tentei de várias formas e não consigo que faça o filtro correctamente. Será que me pode ajudar?

Private Sub BotaoSalvar_Click()

Dim objOut As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objAnexo As Object
Const olMailItem = 0
Const olByValue = 1
Dim strArquivo As String
Dim strLocal As String
On Error GoTo Err_BotaoSalvar_Click


If Nz(Ordem_Servico.Value, "") = "" Then
Ordem_Servico = ID

Me.Refresh


Set objOut = New Outlook.Application
Set objMail = objOut.CreateItem(olMailItem)
Set objAnexo = objMail.Attachments



objMail.To = "x"
objMail.CC = "y"
objMail.BCC = "z"
objMail.Subject = "Pedido de abertura de O.S."
objMail.Body = "Serve o presente para solicitar abertura de O.S. de acordo com documento anexo, após abertura agradeço actualização dos dados do registo nº " & Ordem_Servico & " Obrigada "

strArquivo = "Ordem_Servico" & Me.Ordem_Servico & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo

'Salvando alterações no registro
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

DoCmd.OpenReport "TBL_AberturaOS", acViewPreview, , ID = " & Me.ID & ", acHidden
DoCmd.OutputTo acOutputReport, "TBL_AberturaOS", acFormatPDF, strLocal
DoCmd.Close acReport, "TBL_AberturaOS"


objAnexo.Add strLocal, olByValue, 1

objMail.Display
Set objMail = Nothing
Set objOut = Nothing
Set objAnexo = Nothing

End If

DoCmd.RunCommand acCmdSaveRecord
Me.AllowEdits = False

Exit_BotaoSalvar_Click:
Exit Sub

Err_BotaoSalvar_Click:
If Err.Number = 2046 Then
MsgBox "O.S. guardada", vbExclamation, getTitulo & " - Cadastro de Documentos"
Resume Next
Else
MsgBox Err.Description, vbExclamation, getTitulo & " - Cadastro de Documentos"
Resume Exit_BotaoSalvar_Click
End If

End Sub

Muito Obrigada

Consegui...

DoCmd.OpenReport "TBL_AberturaOS", acViewPreview, , "ID =" & Me.ID, acHidden

Obrigada

Ótimo que deu certo. Mas não esqueça de clicar no Resolvido.
O botão fica do lado direito do título do tópico quando estamos
respondendo.
Dessa vez eu ponho!