Unsaved file as E-mail attachment

R

raj

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!!!
 
D

Dick Kusleika

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Email to include a saved signature from outlook. 1
Range for Body of E-Mail 4
Email Excel Cell Range using Macro 2
Set focus on Subject line in Outlook 0
Copy Range of Cells to Outlook 1
Excel link blocking Outlook 0
Excel & Outlook 1
Type mismatch error when using outlook 0

Top