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
|