Microsoft Office Forums - View Single Post - [Solved] insert into e-mail

gbaker · 03-03-2013, 11:17 AM

I have a code that opens a workbook and then put it into an e-mail to send out to whom ever needs it. I also would like to attached another workbook to that same e-mail and have not been able to make the code work. See code below and let me know what I can do to make this work. Thanks in
advance, GWB

Code:

Sub INSERTINTOEMAIL()
'
' INSERTINTOEMAIL Macro
'

'
    ChDir "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version"
    Workbooks.Open Filename:= _
        "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version\BNY_VIEWING_CALENDAR_2013.xls"
    Workbooks.Open Filename:= _
        "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version\LIST VIEW BNY.xls"
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
    ActiveWindow.Close
    Range("B5").Select
End Sub