Sending email

[nashr1928]

I have recently discovered that this function has stopped working and cant see why. I inserted a control button on a form to send a report to an email recipient. I now just get access error with no number just a message that states cant send this email message.

Private Sub Command149_Click()
On Error GoTo Err_Command149_Click
Dim stDocName As String
stDocName = "Service Report"
DoCmd.SendObject acReport, stDocName


Exit_Command149_Click:
Exit Sub
Err_Command149_Click:
MsgBox Err.Description
Resume Exit_Command149_Click

End Sub

[ajetrumpet]

does the report exist?

do you have an email client on your machine?

does the report take a parameter?


what happened when it was working? what did you see? nothing?

[nashr1928]

I have had this report for a while now and its worked fine about a month ago. The attachment show in sucession what happens.
1. send to email recipient
2. Select snapshot
3. select ok

Then I get the error message and you can see in the print screen images i have attached.

[ansentry]

nashr1928,
This part of your code works fine,

Dim stDocName As String
    stDocName = "Service Report"
    DoCmd.SendObject acReport, stDocName

Do you have your computer setup to send and receive email?

Read the error message you posted.

[nashr1928]

Well a month ago this all worked fine and this function just stopped working. Im not sure what to check. I did find some googled info that said this may be due to a windows security update that see's the email from access as a threat. I dont know how to check that either.

[ansentry]

Do you have your computer setup to send and receive email?

Read the error message you posted.

You did not answer this question.

[nashr1928]

Yes its set up with outlook from office suites 2007

[ansentry]

I don't have office 2007 so I can't be of any further help.

[nashr1928]

Well thing is that all was working perfect a month ago and then just stopped functioning. I just love mcrosoft. Any I will try a computer forum. Thanks for your help.