How can i attach active workbook to email- please see the macro

  • Thread starter Thread starter stric
  • Start date Start date
S

stric

This is the part of the macro that I created.

Sheets("Contract Expiration Report").Copy
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = EmailAddr
.Subject = RegionToGet
.Body = Msg
.Display
End With
ActiveWorkbook.Close Savechanges:=False

The whole macro filter out certain records, saves them in a sheet an
then is supposed to send the sheet to EmailAddr. The problem is tha
everything but the sheet goes. Can you tell me how to attach tha
sheet?
Or how can I attach newly created files in general
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top