Need Code to Concatenate All Records

[menntu]

Hi, I've a simple request. I have one table (tblAddresses) that has a single field (Email). I'd like a piece of code to grab all the Emails and sling them into a single memo/text box on my main menu (frmMenu). The results are not going to be tied to any individual record, just something I can then copy and paste into a different application. Can someone guide me through this?

Thank you!

Destin Richter
richter@newmexico.com

[RuralGuy]

You may find this link useful.

[tinytree]

-----access VBA-------
dim a() as string,dim i as long
set dbs=currentdb
set rst=dbs.openrecordset("tblAddresses",dbopentalbe)
rst.movelast
redim a(1 to rst.recordcount)
rst.movefirst
i=1
do until rst.eof

loop

[tinytree]

do until rst.eof
a(i)=rst(0)
rst.movenext
loop
dbs.close
set dbs=nothing
set rst=nothing

[Patrick.Grant01]

This might help ......

Public Sub SendEMail(strDestinationMailBox As String, strBodyofMessage As String, _
strSubjectOfMessage As String, Optional strContact, Optional strCopiesOfMessage As String, Optional strAttachment As String)

'error trapping routine
On Error GoTo Err_SendEMail

'procedure level scope
Dim mapOutlook As Outlook.Application
Dim mapNameSpace As NameSpace
Dim mapFolder As MAPIFolder
Dim mapMessage As MailItem
Dim strFirstName As String


Set mapOutlook = CreateObject("Outlook.Application")
Set mapNameSpace = mapOutlook.GetNamespace("MAPI")
mapNameSpace.Logon
Set mapFolder = mapNameSpace.GetDefaultFolder(olFolderOutbox)
Set mapMessage = mapOutlook.CreateItem(olMailItem)


strBodyofMessage = strFirstName + Chr(10) + Chr(13) + strBodyofMessage

With mapMessage
'set destination
.To = strDestinationMailBox
'set subject
.Subject = strSubjectOfMessage

'set the body of the message
.Body = strBodyofMessage
'if there are copies then send then
If strCopiesOfMessage <> "" Then .CC = strCopiesOfMessage

'and send the message
' Add Attachment
If strAttachment <> "" Then .Attachments.Add strAttachment

.Save

End With
'shut down the message system
mapNameSpace.Logoff
'and renulifiy the objects in order
Set mapMessage = Nothing
Set mapFolder = Nothing
Set mapNameSpace = Nothing
Set mapOutlook = Nothing


'Debug.Print strSubjectOfMessage & " - OK "
Exit_SendEMail:

Exit Sub

Err_SendEMail:
Debug.Print strSubjectOfMessage & " - Failed "
MsgBox "SendEMail: " & Err.Number & " " & Err.Description
Resume Exit_SendEMail

End Sub