Sending email with PDF attachment

[Soundje]

Hello everybody,
Can any help me what I am doing wrong; i am trying to send a email with a pdf-report attached based on a report (rap_factuur_klant_pdf).
I am using MS Access 2007 and Outlook 2007..

 Dim sAddr As String, sSubj As String, sFor As String
Again:
sAddr = InputBox("E-mail address:")
sSubj = "Report"
sFor = Left(sAddr, InStr(1, sAddr, "@") - 1)
 DoCmd.SendObject acSendReport, rap_factuur_klant_pdf, acFormatPDF, sAddr, , , sSubj, "BLA BLA BLA"
 DoEvents

Many thanks for all your help,
Koen

 

[Minty]

Can you give us a clue as to what your problem is, what error code or part of your VBA is highlighted?

As a start I'm pretty certain your report name will need to be in quotes "rap_factuur_klant_pdf"

 

[Soundje]

When I execute it I am getting following error:
Error 2487 while executing:
The argument ObejectType for the action of the method is blanc or invalid

and then it highlight this line in the code:

DoCmd.SendObject acSendReport, rap_factuur_klant_pdf, acFormatPDF, sAddr, , , sSubj, "BLA BLA BLA"

 

[Minty]

Like I said you need to put the report name in quotes;

DoCmd.SendObject acSendReport, [COLOR="Red"]"[/COLOR]rap_factuur_klant_pdf[COLOR="red"]"[/COLOR], acFormatPDF, sAddr, , , sSubj, "BLA BLA BLA"

 

[Soundje]

Thanks for the tip,
Now I am getting the error 2293
The message can not be send from XXX

 

[Minty]

http://lmgtfy.com/?q=+error+2293+The+message+can+not+be+send+from

First answer...