Email list

[Jphillis]

I have a table 'person' that contains details of individuals including email addresses. Each email address is an individual record.
My objective is to have one list of email addresses, semicolon seperated, so that i can copy and paste this list into the TO box in Outlook

Any ideas on how i do this???

 

[Craig0201]

Jphillis,

Try this code...

Public Function GetEmailList() As String

Dim db as Database
Dim rst as Recordset

Set db = CurrentDB
Set rst = db.OpenRecordset("YourTableName&quot

Do Until rst.EOF
GetEmailList = GetEmailList & rst!YourFieldName & "; "
rst.MoveNext
Loop

GetEmailList = Left(GetEmailList,Len(GetEmailList)-2)

End Function

Hope that helps....

Craig