Here is the code I am using.  If I comment the attachments loop-it all goes
swimmingly well.  When I uncomment the attachment loop, I get a runtime
error-not the same error number, but always the same message-"Operation is
not supported for this type of object." on the MyMail.Attachments.Add
MailList("Link") line.  But the screentip indicates that MailList("Link") is
pointing to the correct file.

 Option Compare Database

Public Function SendEMail()
Dim db As DAO.Database
Dim MailList As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter

Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim Subjectline As String
Dim Bodyfile As String
Dim fso As FileSystemObject
Dim myBody As TextStream
Dim myBodyText As String
Dim Recip As String

Set fso = New FileSystemObject

Subjectline$ = "Testing new Document List Email"
Recip$ = "Sarah.Sigler@CIGNA.com"

Bodyfile$ = "\\wldfs035\Landata_chc\INNOVATION LAB\Sarah\Other
Stuff\Library\Testing body of email.doc"
Set myBody = fso.OpenTextFile(Bodyfile, ForReading, False, TristateUseDefault)
myBodyText = myBody.ReadAll
myBody.Close

Set MyOutlook = New Outlook.Application

Set db = CurrentDb()
Set qdf = db.QueryDefs("Select")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm

Set MailList = qdf.OpenRecordset

Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = Recip$
MyMail.Subject = Subjectline$
MyMail.Body = myBodyText

Do Until MailList.EOF
   MyMail.Attachments.Add MailList("Link")
   MailList.MoveNext
Loop

MyMail.Send

Set MyMail = Nothing

Set MyOutlook = Nothing
MailList.Close
Set MailList = Nothing
db.Close
Set db = Nothing

End Function