Lumpierbritches wrote:
Hello, and thank you in advance for any and all assistance. I'm having a
problem. This code worked years ago, what am I doing wrong?
Private Sub SendeMail_Click()
DoCmd.SendObject acSendNoObject, , , [email], [CC], [BCC], [Subject], [Body],
True
End Sub
I get a Run-time '2293': Can't send a message for the reason stated in the
previous alert.
Resolve that problem, then send the message again.
There isn't a previous message...HELP!!!
Error, when I try and send email from Access 97.
Thanks
Michael
I would put your program into debug-step mode and get the values for
each argument. Then I would create a new moduled and create variables
for each item and the values from the debug-stepping. Then enter your
DOcmd.Sendobject line and remove 1 argument and run. Keep removing
arguments until you don't get an error.
The other thing to try is to do a SendObject manually. Create a new
module and enter something like
DoCmd.SendObject acSendNoObject, , , "lu*****@test.com", , , "Test
Subject", "test Body", True
See what happens. It's possible one or more arguments are incorrect.