The format in which you are attempting to output the current object is not available.

[REAbernathy]

Good Morning,

I am trying to send the current record via e-mail to one of my firms. When i click on my form button to try and send this information i get the following popup box that states "The format in which you are attempting to output the current object is not available" am trying to use Outlook 2007 to send this e-mail.I am using Access 2007 for my database....And Remember I am Still A Newbie.

Private Sub Mail_Report_Click()
On Error GoTo Err_Mail_Report_Click

Dim stDocName As String
Dim stEmail As String
Dim stSubject As String

stDocName = "TrackingSystemReport3"
stEmail = "robert.abernathy@trakamericia.com"


stSubject = "TrackingSystemReport3"

DoCmd.SendObject acSendForm, stDocName, acFormatSNP, stEmail, , , stSubject, , , False

Exit_Mail_Report_Click:
Exit Sub

Err_Mail_Report_Click:
MsgBox Err.Description
Resume Exit_Mail_Report_Click

End Sub

[pbaldy]

Does acFormatPDF work? I can't remember if 2007 dropped support for snapshot, or it's not installed by default or something like that. Brain getting old.

[REAbernathy]

So if acFormatPDF doesnt work then what can i use in it's place that does work? And you are not getting old you just have alot of things on your mind

[pbaldy]

Did you try the acFormatPDF?

[REAbernathy]

I have another question? When I click on the Mail Report command button it is trying to mail all of the reports and all i want is the current report that was created. How do i make this work? Here is my code for the Mail Report can you tell me what I am doing wrong PLEASE.....I am almost feeling Competent enough to stop calling myself a NEWBIE........NOT

On Error GoTo Err_Mail_Report_Click

Dim stDocName As String
Dim stEmail As String
Dim stSubject As String

stDocName = "TrackingSystemForm3"
stEmail = "robert.abernathy@trakamericia.com"
stSubject = "TrackingSystemReport3"

DoCmd.SendObject acSendForm, stDocName, acFormatPDF, stEmail, , , stSubject, , , False

Exit_Mail_Report_Click:
Exit Sub

Err_Mail_Report_Click:
MsgBox Err.Description
Resume Exit_Mail_Report_Click

[pbaldy]

For starters, I'd create a report and send that. You have a lot more control over the formatting that way. As to filtering, I usually do this:

Emailing a different report to each recipient

You can also base the report on a parameter query that limits it to the record on the form.

[REAbernathy]

Is this much easier than the why I am trying to do it? I have been searching and i havent seen anything with creating a report and sending it however i will keep looking. Will this also allow me to get the most recent record as well and later write a query to populate the send to address with?

[REAbernathy]

I am so sorry i didn't understand your question. I have a report already created and its called TrackingSystemReport3 so how do i only send the most recent one and will the code above work for me?