| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Attach Open Excel Spreadshee to Email
JLGWhiz wrote: After reading your post a little closer, I'm not sure you can send an open file as an attachment. That is probably why you got the security warning when you tried it from the menu. "JLGWhiz" wrote: Based on the following, which was copied from Outlook VBA help, looks like you need the complete path for your Attachments.Add statement. Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) Set myAttachments = myItem.Attachments myAttachments.Add "C:\My Documents\Q496.xls", _ olByValue, 1, "4th Quarter 1996 Results Chart" The last line is the one I was referring to. "BillyRogers" wrote: I'm trying to send an open spreadsheet as an attachment from code in Outlook 2003. I tried using the excel command SendMail but that triggers a security warning. The code fails when I try to add the workbook as an attachment. Sub temp() Dim xlApp As New Excel.Application Dim appwbook As Excel.Workbook Dim appwsheet As Excel.Worksheet Set xlApp = New Excel.Application Set appwbook = xlApp.Workbooks.Add Set appwsheet = appwbook.Worksheets(1) xlApp.Visible = True Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem) objMail.BodyFormat = olFormatHTML objMail.Recipients.Add ") objMail.Subject = "this is the subject" objMail.Attachments.Add (appwbook) ' ** this line doesn't work!!! objMail.Display End Sub -- Billy Rogers Dallas,TX Currently Using Office 2000 and Office 2003 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Attach all Open Workbooks to email as separate files? | Excel Programming | |||
| Generate PDF from Excel & Attach to Email | Excel Programming | |||
| How do I attach just one Excel worksheet in an email | Excel Programming | |||
| How to get an object reference to an ALREADY open excel spreadshee | Excel Programming | |||
| Open an email and attach my excel file | Excel Programming | |||
Hybrid Mode
