Emailing Macro

[ChuckF]

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.

 

[Guest]

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

 

[Paul B]

In addition to Martin's code you may also want to have a look here for more
information on e-mailing from excel

http://www.rondebruin.nl/sendmail.htm#Tips
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003