Attachments

[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

 

[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.

 

[Ron de Bruin]

Hi Gerry

Look for code examples here
http://www.rondebruin.nl/sendmail.htm

You can use one of the the Add-ins also if you want
http://www.rondebruin.nl/mail/add-in.htm