| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unsaved file as E-mail attachment
Please help me if you can.
I have developed code that will copy certain portions of data to a temp file that is then to be attached to an e- mail message using Outlook. After the e-mail is sent, the program will close the temp file without saving it. I'd really like to keep the code this way. Does anyone know how to attach and send an UNSAVED Excel file using Outlook? Your EXAMPLE code is vital to me. Below is my code so far: Dim olApp As Outlook.Application Dim olMail As MailItem Dim strFile As String Set olApp = New Outlook.Application Set olMail = olApp.CreateItem(olMailItem) With olMail .To = <Recipient .Subject = <Subject .Body = <Body .Attachments.Add <File .Send End With Set olMail = Nothing Set olApp = Nothing THANKS MUCH IN ADVANCE FOR YOUR ASSISTANCE!!! |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Unsaved file as E-mail attachment
raj
I don't know how to attach an unsaved file, but you can save it and delete it. Fname = "C:\MyAttachemnt.xls" ActiveWorkbook.SaveAs Fname olMail.Attachments.Add Fname ActiveWorkbook.Close False Kill Fname The Kill statement deletes it from the harddrive. -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "raj" wrote in message ... Please help me if you can. I have developed code that will copy certain portions of data to a temp file that is then to be attached to an e- mail message using Outlook. After the e-mail is sent, the program will close the temp file without saving it. I'd really like to keep the code this way. Does anyone know how to attach and send an UNSAVED Excel file using Outlook? Your EXAMPLE code is vital to me. Below is my code so far: Dim olApp As Outlook.Application Dim olMail As MailItem Dim strFile As String Set olApp = New Outlook.Application Set olMail = olApp.CreateItem(olMailItem) With olMail .To = <Recipient .Subject = <Subject .Body = <Body .Attachments.Add <File .Send End With Set olMail = Nothing Set olApp = Nothing THANKS MUCH IN ADVANCE FOR YOUR ASSISTANCE!!! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| e Mail attachment | New Users to Excel | |||
| how to add attachment in a CDO mail | Excel Discussion (Misc queries) | |||
| mail and attachment | Excel Discussion (Misc queries) | |||
| E-Mail attachment to same e-mail address in Outlook | Excel Discussion (Misc queries) | |||
| how to e-mail with an attachment using hotmail | Excel Worksheet Functions | |||
Linear Mode
