Multiple E-Mail Attachments

[jim]

I want to be able to enhance this module so that it will
allow me to open multiple files and attach all the files
to one email.

The way I have it I open multiple files but it only
attaches the first file.

Sub MetLifeQueryEmail()
ChDir "C:\temp"
Workbooks.Open Filename:="C:\temp\_MetLife Accounts
Set Up By.XLS"
Workbooks.Open Filename:="C:\temp\_Metlife_Account
Structure.xls"
Application.Dialogs(xlDialogSendMail).Show
End Sub

Jim

 

[Ron de Bruin]

Do you use Outlook Jim?

 

[jim]

Hi Ron:

Yes I do use Outlook!

Jim

-----Original Message-----
Do you use Outlook Jim?

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)







.

 

[Ron de Bruin]

You don't have to open the files Jim

See this example on my website that will add the activeworkbook to the mail
http://www.rondebruin.nl/sendmail.htm#other
And show you how to add more files to the mail

Post back if you need help