This will create the email and attachment but you have to have saved the file
to do this (be interested to know how to do it with an open document). Make
sure you have M/soft Outlook Object Library ticked in Tools, References:

Sub myEmail()
Dim myOut As New Outlook.Application
Dim myItem As Outlook.MailItem
Set myItem = myOut.CreateItem(olMailItem)
myItem.Recipients.Add "Attendance"
' myItem.Subject = ...
myItem.Attachments.Add "c:\test.xls"
myItem.Display
End Sub


"ChuckF" wrote:

Each day I take attendance for my group here at work. Is there a way
to create a macro that would emulate me hitting "File, Send To, Mail
Recipient, and enter the word "Attendance" (my distribution list) in
the TO: column.