Sending email from outlook, how to get list of "to" addr's from table 1

[joshs1100]

When using DoCmd.SendObject, how can I take a table with a list of email addresses, and use it in the expression to complete the "to" parameter with a semicolon separated list?

Thanks!

 

[flyover789]

assuming you emailaddie table is named "YourAddiesTable", and the field in the table containing the address is named "EmailAddress" you could try:

dim db as DAO.Database
dim rs as DAO.Database
dim strtabname as string
dim strrecipients as string
tabname = "YourAddiesTable"
set db = Application.CurrentDB
set rs = db.OpenRecordset(strtabname)
do until rs.EOF
strrecipients = strrecipients & rs.fields("EmailAddress").value
strrecipients = strrecipients & ";"
loop

just typed, not tested

HTH,
fly

[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]

Martin Serra Jr.

http://www.mserrasystems.com

 

[flyover789]

[red]TYPO[/red]

please replace

tabname = "YourAddiesTable"

by

strtabname = "YourAddiesTable"

[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]

Martin Serra Jr.

http://www.mserrasystems.com

 

[joshs1100]

Thanks! Was just what I needed.

I had to add the reference for the DAO Library, and added rs.MoveNext to get it to move to the next record in the recordset on the loop.

Dim db As DAO.database
Dim rs As DAO.Recordset
Dim strtabname As String
Dim strrecipients As String
strtabname = "Your_Table_Name"
Set db = Application.CurrentDb
Set rs = db.OpenRecordset(strtabname)
Do Until rs.EOF
strrecipients = strrecipients & rs.Fields
("Email_Address").Value & ";"

rs.MoveNext

Loop

 

[flyover789]

yep, sorry I forgot the movenext

and thx for the vote!


fly


[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]

Martin Serra Jr.

http://www.mserrasystems.com