Attachments

G

Gerry

I am trying to send Excel worksheets to mail receipients.
The worksheets are in a workbook. I can get the workbook
to send using this code but I need it to send the
WORKSHEET only. Any ideas, please.

Sub ATest()

Code being used:

Dim xlApp As New Excel.Application, xlItem As
Excel.Sheets
Dim olApp As New Outlook.Application, olItem As
Outlook.MailItem
Dim olAttachments As Outlook.Attachments
Dim strMess As String, strTitle As String, strTo As
String

Set olItem = olApp.CreateItem(olMailItem)
strTo = "(e-mail address removed)"
strMess = "New Worksheet Attached"
olItem.Subject = "New Worksheet "
olItem.to = strTo
olItem.Attachments.Add ("P:\MyFolder\activities.xls")
olItem.Body = strMess
olItem.Send
Set olItem = Nothing

End Sub
 
T

Tom Ogilvy

copy the sheet to a new workbook with only a single sheet. Send this
workbook. Close this copy without saving. Do this in code, of course.
 

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

Top