Send_email error # 16040 and email will not be sent.

[MikeData]

I am getting this error in a send_email script:
The report EmailGrpSubmission works, as the test.htm is created in the root.
Any suggestions, or where to look?

error sending message
250.2.5.0 address ok.

so I added the script for error:
on error goto display_error
-------
script
--------------
end
display_error:
err = error_code_get()
msg = error_text_get(err)
ui_msg_box("Error", msg + str(err))
end


Now I get the error no: 16040 (Not in the wiki list of errors)

I can send a single email using Alpha, with no problem.
Here is the script in question:

Dim tbl2 as P
tbl2 = table.open("t_emaildata")
tbl2.fetch_first()
dim I as N
dim K as N
dim J as N
dim message as C
while .not.tbl2.fetch_eof()
param_to = trim(tbl2.Email)
' param_subject = " Confirmation"
' param_cc = ""
' param_bcc = ""
' param_msg = msg_text

query.filter = "Rmaker = "+quote(tbl2.maker)
query.order = "recno()"

:Report.SaveAs("EmailGrpSubmission", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if
email_send(param_to, "Confirmation",message, "", "", "", .F., "HTML")
tbl2.fetch_next()
end while
tbl2.close()

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

Just to add, that if I repeat the request, The error number is not repeated.
I get 16063,16031,16033, 16003 and so on.

[Charles Hoens]

Re: Send_email error # 16040 and email will not be sent.

Try sending the email in the interactive window and see what happens. Also, make sure that your profile is working properly. You can find that in A5 settings.

Alternatively, try using Email_Send2() as that might work a bit better.

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

Let me correct my first entry, Checkin closely I notice the error shows 250 2.5.0 address ok.
no period bet 250 and 2
Is that significant?

Here is what I have done:

email_send2(param_to, "Confirmation",message, "", "", "", .F., "HTML")
got the error:
Variable type mismatch attemp to pass 'c' to argument 'pMessage' is of type 'P' error 2026
--------------------------------
Using the following in interactive window worked:

param_to = "[email protected]"
message = "The green message"
email_send(param_to, "Confirmation",message, "", "", "", .F., "HTML")

param_to = "[email protected]"
message = file.to_string("c:\test.htm")
email_send(param_to, "Confirmation",message, "", "", "", .F., "HTML")

I though that the report was the culprint but in the interactive windows, both worked and both messages including the results of test.htm were received.

Any clue where I am wrong?

[Al Buchholz]

Re: Send_email error # 16040 and email will not be sent.

Here is what I have done:

email_send2(param_to, "Confirmation",message, "", "", "", .F., "HTML")
got the error:
Variable type mismatch attemp to pass 'c' to argument 'pMessage' is of type 'P' error 2026
--------------------------------
Using the following in interactive window, both worked:

param_to = "[email protected]"
message = "The green message"
email_send(param_to, "Confirmation",message, "", "", "", .F., "HTML")

param_to = "[email protected]"
message = file.to_string("c:\test.htm")
email_send(param_to, "Confirmation",message, "", "", "", .F., "HTML")

I though that the report was the culprint but in the interactive windows, both worked and both messages including the results of test.htm were received.

Any clue where I am wrong?

The arguments for email_send2() are different from email_send()

Per the docs
http://wiki.alphasoftware.com/~alpha...SEND2+Function

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

I have tried this script: The error is the same as above.

Dim tbl2 as P
tbl2 = table.open("t_emaildata")

tbl2.fetch_first()
dim I as N
dim K as N
dim J as N
dim message as p

while .not.tbl2.fetch_eof()
query.filter = "Rmaker = "+quote(tbl2.maker)

query.order = "recno()"
:Report.SaveAs("EmailGrpSubmission", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if

'body = file.to_string("c:\test.htm")
body = " Great email. "
message.message = body
message.to = trim(tbl2.Email)
message.subject = "Confirmation"

email_send2(message, "", .F., .T.)

tbl2.fetch_next()
end while
tbl2.close()

[Charles Hoens]

Re: Send_email error # 16040 and email will not be sent.

Where are you using the script?

If on a form, create a button and then use Action Scripting to create the code for you. Simple as that. Also, you can study the code generated.

[Tom Cone Jr]

Re: Send_email error # 16040 and email will not be sent.

Mike,

Your script saves each report to the same disk file over and over. I suspect you have a timing issue. Try using distinct filenames for each saved report.

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

First thanks to all for responding.

The script is used in a menu form. In other words abutton that call the script shown above.

I was thinking about it, but if it is timing, at least the first one email will be sent. Is it?.
Do this line should be changed? wait_until(.F., 5, 5)

Should we look at my settings in the profile, even though it sends the emails in the interactive and I can send and receive?

I am using thunderbird as my regular email.
Windows 7, 64b
In the profile I am using default with the access to my regular email and the test option, shows succeed plus it sends a test to the email address.

I did try not using a file name but naming the line message = file.to_string("c:\test.htm") to message = "Great email to enjoy"
In other words, removed the file naming issue.
Same results.

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

I have checked the email profile (default) many times, even create one by name.
The setting are correct as it send emails every test after telling me, all is OK.
I Have changed the timing wait_until(.F., 5, 5) with many combinations, as high as 90,25 and even erasing it.
Same results.
I changed the default email system to Alpha email system, same results.
Tried the email_send() and email_send2(), same results.
Manually from the interactive windows, it sends the emails.

So why the error error sending message 250 2.5.0 address OK.
The error is confusing and why 250?
Where the 250 comes from? It is not mine
Is there any other way to do this task?
Any suggestions?
Hair is getting sporadic and I my age takes a looong time to regrow(hope).

[Al Buchholz]

Re: Send_email error # 16040 and email will not be sent.

Google 250 2.5.0

[MikeData]

Re: Send_email error # 16040 and email will not be sent.

Good news, It has been resolved.
The table emaildata that contained the email address, must have been carring an extra period in the email address, so I reworked the process to make sure no extra period and now is sending emails perfectly with no extra .

What led me to look back in the table was that I changed the parm_to = "singleemail.com" not the table email address
in other words one email for all, disregarding the table.
All email were sent with no errors.
So the problem had to be with the email address in the table itself.

Thanks for helping all along.
I think I notice the tip of a new hair is growing.

Al, I did google 250 2.5.0 before, all I saw was nothing related, other than my posting itself.
Was there anything I miss?