DoCmd.SendObjec t to table of email addresses?

[dszmauz]

I'd like to send a report to a distribution of email addresses. The distribution list is stored in Email.[email]. How do I use the DoCmd.SendObjec t to send to a list? The command below isn't working:
DoCmd.SendObjec t acReport, "Upcoming Week OT Report", "RichTextFormat (*.rtf)", Email.[email], "", "", "Upcoming Week OT Report", "", False, ""

[isetea]

Hello,
I'm not an expert with Access, but I had a very similar problem last time and maybe you can try this code.

Dim stDocName As String

stDocName = "Reportname "
DoCmd.SendObjec t acReport, stDocName, acFormatRTF, "TO", "CC", "BCC", "Upcoming Week OT Report"

If you are familiar with VBA, you can have a look what you need there or use Access help and look for 'SendObject Method'.

Hope this helps

Cheers

I'd like to send a report to a distribution of email addresses. The distribution list is stored in Email.[email]. How do I use the DoCmd.SendObjec t to send to a list? The command below isn't working:
DoCmd.SendObjec t acReport, "Upcoming Week OT Report", "RichTextFormat (*.rtf)", Email.[email], "", "", "Upcoming Week OT Report", "", False, ""

[dszmauz]

I'll give it a try. Thanks!

[dszmauz]

Another programmer gave me the following and it's working:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from EmailTable"
rs.Open strSQL, CurrentProject. Connection, adOpenKeyset, adLockReadOnly
rs.MoveFirst
Do While Not rs.EOF
DoCmd.SendObjec t acSendReport, "Upcoming Week OT Report", acFormatRTF, rs!EmailAddress , , , "New Way", "Upcoming Week OT Report", False
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

[PEB]

But maybe you are working with Visual Basic 6.0 and not with Access???

Or with Access but on an Access project connected to SQL Server?

Those are important details however!

:)