[Resolvido]Enviar Relatório como anexo

Pessoal,

Estou a tentar enviar um relatório como anexo em PDF porém não estou conseguindo

Public Sub ENVIAR()

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

Set OutMail = OutApp.CreateItem(0)

With OutMail

.TO = "DOUGLAS@TESTE.COM.BR"
.SUBJECT = "TESTE"
.CC = "DOUGLAS@TESTE.COM.BR"
.HTMLBody = "TESTE"
.Attachments.Add = "CRM_SEMANAS"
.send

End With
End Sub

o que devo fazer?

Você tem de informar o caminho completo do PDF, assim o access não consegue saber onde está;

Código:

.Attachments.Add = "C:\SuaPasta\CRM_SEMANAS.pdf"

Obrigado JPaulo, funcionou.

Fico feliz.