Sending multiple email code not working (1 Viewer)

I have this code below its giving me the RUntime 2295 error. Unknown message recipients. I have check all email addresses and they are fine. Everything else works except when it gets to Outlook and do not send email. Can you take a look let me know what you think? I did a Debug Print but didnt understand how to do it.

Private Sub Command9_Click()
Dim rst As DAO.Recordset
Dim strEmailAddress


Set rst = CurrentDb.OpenRecordset("T_Inspectors")

Do Until rst.EOF
strEmailAddress = strEmailAddress & rst("Email") & ","
rst.MoveNext
Loop

strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)

DoCmd.SendObject acSendReport, "R_WeeklyDispatch_Today", acFormatPDF, strEmailAddress, _
, , "Job Alert", "Please see current jobs", True

rst.Close
Set rst = Nothing
End Sub

As I have already mentioned in the other thread.. Try debugging, copy and paste the generated String here..

Unless you wish to do some work, we will not be able to help you..

I would like to see..

wnicole said:

then the email addresses.

Click to expand...

This is what exactly I was saying, the problem might be with the missing emails..

wnicole said:

1. It appears the employees without email addresses may be trigerring it. Is there a Is Null statement you can send me. I dont know how to create one in VBA.

Click to expand...

Add a line to differentiate the Null/ZLS fields.. Something along the lines of..

wnicole said:

2. I notice the email addresses was everybody in the table but not the specific ones based on the query. Was that normal? Is it telling me the code is wrong and will send to everybody?

Click to expand...

Check the Query (T_Inspectors) once again, see if it is actually filtering the table properly..

Hi, sorry to re-open this forum, but I used this code and am getting a Complie error: Variable not defined and the debugger takes me to the strSubject line.

Private Sub Command4_Click()
Dim rst As DAO.Recordset
Dim strEmailAddress
Set rst = CurrentDb.OpenRecordset("Just_Email")
Do Until rst.EOF
strEmailAddress = strEmailAddress & rst("Email") & ";"
rst.MoveNext
Loop
strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)
DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
, , strSubject, strEMailMsg, False, False
rst.Close
Set rst = Nothing
End Sub

What I am trying to do, is take all the addresses in my Just_Email table and BCC them all in one e-mail, and I don't want to send an attachment...

Could someone help me please. :banghead:

Don't post the same question twice.

https://access-programmers.co.uk/forums/showthread.php?t=296141