Email with Bcc only. No attachments

[Gicu]

Good, so it actually attempted to send the email.
Can you put a break on the Docmd.SendObject and inspect the sEmails variable in the immediate window. What email client are you using? If Outlook I believe you need to go into File\Options\Mail\Send Messages and make sure the setting "Commas can be used to separate multiple..." is checked. Or change the code I've sent you and replace the comma with a semi-colon which is the default Outlook separator.

Cheers,


Vlad

[shuddle]

It's giving a run-time error again

Option Compare Database
Option Explicit




Private Sub Command0_Click()
Dim sEmails As String
Dim qdf As QueryDef, prm As Parameter, rst As DAO.Recordset
Set qdf = CurrentDb.QueryDefs("Q_All_Emails_no_dups")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm


Set rst = qdf.OpenRecordset


Set rst = CurrentDb.OpenRecordset("Q_All_Emails_no_dups")
sEmails = ""
Do Until rst.EOF
sEmails = sEmails & rst("Email") & ","
rst.movenext
Loop




sEmails = Left(sEmails, Len(sEmails) - 1) 'trim the last comma




DoCmd.SendObject acSendNoObject, , , sEmails, , , , , , False
End Sub

[Gicu]

What's the error and which line raises it?

[shuddle]

Got a run-time error 3265 Item not found in this collection

Set qdf = CurrentDb.QueryDefs("qryMyQuery")

I changed the "qryMyQuery" to "Q_All_Emails_no_dups" and got the Run-Time Error 2295 again

[Gicu]

Have you looked at the sEmails variable in the immediate window? Add debug.print sEmails after the loop (just before the Docmd.SendObject), put a break on the Docmd.SendObject line and open the immediate window with CTRL+G. Do you see the email addresses there? Have you tried to replace the comma with a semi-colon?

Do Until rst.EOF
sEmails = sEmails & rst("Email") & ";"
rst.movenext
Loop

[shuddle]

I put a break on the line. the runtime error highlights this syntax

DoCmd.SendObject acSendNoObject, , , sEmails, , , , , , False

[Gicu]

What is the sEmails variable? Hover the mouse over it or do what I suggested in the previous post (debug.print sEmails).

Cheers,

[Gicu]

Are you using Outlook? Have you checked the option to allow commas as email list separator?

[shuddle]

Sorry this is getting so confusing.

Here's what I have. Nothing show in the immediate window.

Option Compare Database
Option Explicit




Private Sub Command0_Click()
Dim sEmails As String
Dim qdf As QueryDef, prm As Parameter, rst As DAO.Recordset
Set qdf = CurrentDb.QueryDefs("Q_All_Emails_no_dups")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm


Set rst = qdf.OpenRecordset


Set rst = CurrentDb.OpenRecordset("Q_All_Emails_no_dups")
sEmails = ""
Do Until rst.EOF
sEmails = sEmails & rst("Email") & ";"
rst.movenext
Loop




sEmails = Left(sEmails, Len(sEmails) - 1) 'trim the last comma


Debug.Print sEmails
DoCmd.SendObject acSendNoObject, , , , , sEmails, , , , False
End Sub

[shuddle]

I am using Outlook

[Gicu]

You need to put a break on the Docmd.SendObject line, click the button and when the code stops on that line (it will turn yellow) press CTRL+G to open the Immediate window. In there you should see the value of the sEmails variable printed by the previous line. Are you saying you are doing all this and you see nothing?

[shuddle]

Yes, I put a break on the line and it turn yellow but there is nothing in the Immediate window.

[Gicu]

Then you need to check the name of the query and the email field and make sure it returns your expected records. Here is what I get in the small sample I am attaching to this post:

[shuddle]

All the names looks right and the query does give the results I want. I'll work on it more tomorrow.

[Gicu]

Sure thing, good luck!
Post back if you get stuck.

Cheers,
Vlad