VBA to use Query email addresses in TO: of Outlook

[agent-]

Hello,

I have a query that gathers email lists based on whether or not the record is part of the distribution list. I need to be able to either:

1. Open outlook new mail message with the To: field populated with email address, followed by ;

OR

2. Create a listing of the email addresses, with each followed by ; and then I can do the rest.

#1 would be an ideal solution, but I would be satisfied with #2



Here is what I am thinking for the VBA for #2

Dim Outlook

Dim rs As Recordset
Set rs = qryPipeline

Do While Not rs.EOF
Outlook = Outlook + emailaddress + ;
rs.movenext
Loop

Me.Text0 = Outlook

Then I would set up the email procedure to have this sent every Sunday since the newsletter will be sent monday morning If I use #2.

Help would be greatly appreciated! I'm still researching

[agent-]

Was able to find out how to open Outlook from Access. Now I just need the string for the To: and I will be set! here is the code:

Dim rng
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Display
End With
On Error GoTo 0


Set OutMail = Nothing
Set OutApp = Nothing

[agent-]

Solved:

Dim strSql
Dim db As Database
Set db = CurrentDb()
Dim rs As Recordset
Dim Lrs As DAO.Recordset
Dim Outlook

strSql = "SELECT primaryemail FROM tblGoldMine WHERE pipeline=-1;"
Set Lrs = db.OpenRecordset(strSql)

Do While Not Lrs.EOF
Outlook = Outlook + Lrs("primaryemail") + ";"
Lrs.MoveNext
Loop


Dim rng
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Outlook
.CC = ""
.BCC = ""
.Display
End With
On Error GoTo 0


Set OutMail = Nothing
Set OutApp = Nothing