Thanks Brian. I have to admit that I am completely lost with what you are suggesting. I have been working along these lines:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim varOutput As Variant
Dim strQuery As String
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
strQuery = "SELECT person, e-mail " & _
"FROM [Export Table e-mail Query]"
rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText
If rst.RecordCount > 0 Then
'Use all defaults: get all rows, TAB column delimiter, CARRIAGE RETURN
'row delimiter, empty-string null delimiter
varOutput = rst.GetString(adClipString)
Debug.Print [Person] & " <" & [e-mail] & ">"
Debug.Print "No names found to e-mail to" & vbCr
I am using borrowed code here, and trying to adapt it to my needs (everyone does this, right?), but I can't get past the "rst.open" command. Ther error tells me that there is "No value given for one or more required parameters." I can't find sufficient help on these parameters. I'll admit that I don't really know what I am searching for, but I can't find anything. Once I get the rst opened, I was also going to try:
Do Until rst.EOF
If strTo <> "" Then
strTo = strTo & ", "
strTo = strTo & [Person] & " <" & [e-mail] & ">"
Again more borrowed code modified for my use.
Thanks again for any help.