saving one worksheet only

  • Thread starter Thread starter andrewm
  • Start date Start date
A

andrewm

hi
can someone help me? I need to email an excel worksheet rather than the
whole excel work book. any suggestions.
many thanks
andrewm
 
Sub EmailExcelSheet()

Dim myOutlook As Object
Dim myMailItem As Object

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

With otlNewMail
.To = "(e-mail address removed)"
.CC = ""
.Subject = ActiveWorkbook.Name
.Body = "your text" & Chr(13) & Chr(13) & "your text"
ActiveWorkbook.Name & Chr(13) & Chr(13) & "Best Regards," & Chr(13)
"your name" & Chr(13) & Chr(13)
.Attachments.Add fName
.Send
End With

End Sub

I will use this when I have to send daily our orders by email.

Regards,
Mab
 
When you've got the spreadsheet open, right click on the tab and select
'Move or Copy' then click 'Create copy' box at the bottom, then select
the drop down box at the top then select '(new workbook)'.

This will copy that worksheet into a new workbook which you can then
email.
 
When you've got the spreadsheet open, right click on the tab and select
'Move or Copy' then click 'Create copy' box at the bottom, then select
the drop down box at the top then select '(new workbook)' then press
OK.

This will copy that worksheet into a new workbook which you can then
email.
 
Back
Top