Attach Each Open Workbook to Separate Email

[nick612hayden]

hey all

Want to attach each open workbook to a new email...with mac, pretty sure you cannot customize to, subject, email body, etc...but having it open a new email with the attached Workbook is a step worth automating.

Every time I attempt to loop through many open Workbooks, it repeats the loop for the Workbook I started the macro on, as many times as open workbooks...ie: 5 new emails open with the same 5 Workbook attachments

I have my email default to iMail...and use Application.Dialogs(xlDialogSendMail).Show

So...help customize the below to my needs maybe? Thanks!!! -Nick

Sub Email_All()


' Email_All Macro


Dim wBook As Workbook


For Each wBook In Application.Workbooks
Application.Dialogs(xlDialogSendMail).Show
Next wBook


End Sub

 

[nick612hayden]

anyone?