Não estou conseguindo anexar o relatório no e-mail
segue o código abaixo
Sub EnviaEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim corpo As String
Dim strReportName$
Dim AttachmentPath$
Dim subject$
Dim email_to$
Dim email_cc$
'Variáveis
strReportName = "Rel_Solicitacao"
DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, CurrentProject.Path & _
"\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf", False
'Anexa relatório em formato PDF no e-mail
subject = "Solicitação de Tarefa - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & " - " & Forms!Frm_Solicitacao.Txt_Nome_Fantasia
'AttachmentPath = CurrentProject.Path & "\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf"
email_to = Forms!Frm_Solicitacao.Txt_Funcionario
email_cc = Forms!Frm_Solicitacao.Texto98
' email_oculto =""
'Define os controles para envio de e-mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Abre o Outlook.exe
corpo = "
." _ Segue referente a Solicitação n° 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao _ Status: " & Forms!Frm_Solicitacao.Txt_Status _ Tarefa: " & Forms!Frm_Solicitacao.Txt_Tarefa _ Proprietário: " & Forms!frm_solicitacaoMensagem.Txt_Proprietario _ Mensagem: " & Forms!frm_solicitacaoMensagem.Txt_Mensagem _
& "
_
_
& "
& "
_
_
& "
& "
& "
'Corpo do e-mail em formato HTML
With OutMail
.Display
.To = email_to
.CC = email_cc
'.BCC = email_oculto
.subject = subject
.Attachments.Add (AttachmentPath) """""esta dando erro nessa linha"""""
.HTMLBody = corpo & "
" & .HTMLBody
'.Send
End With
'Envia e-mail
'On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Alguém pode me ajudar, agradeço desde já