insert into e-mail

gbaker · #1 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

Pecoflyer · #2 03-04-2013, 03:28 AM

Perhaps this link can help. Code is available

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert picture background in Word mail merge labels	obasanla	Mail Merge	6	11-26-2012 11:53 PM
Can not receive mail when using group mail in Microsoft Outlook 2007	nhat2nhat2	Outlook	0	10-09-2011 08:28 AM
Insert table button doesn't work in Outlook 2010 e-mail message	ironwoods	Outlook	0	08-02-2010 12:24 PM
Error: general mail failure. Quit excel restart mail system	MitchellDM	Outlook	1	12-19-2008 02:05 AM
Insert formatted table into word (mail merge)	manojbmsce	Mail Merge	0	09-25-2008 02:25 AM