email an attachment

[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

 

[Michael Bauer]

Hi Gerry,

AFAIK that´s not possible. If the Workbook contains more WorkSheets,
which you don´t want to send, then you could copy the file and delete
all the unneccessary Worksheets from it before sending.