Send Excel sheet as email attachment using worksheet data using Windows 2010.

[ihenry]

Hi Can anyone help, I am trying to Send a completed Excel sheet as email attachment using worksheet data using Windows 2010. Thank you in advance

[Logit]

Option Explicit

Sub Email_Worksheet_As_Workbook()
ActiveSheet.Copy
With ActiveWorkbook
'.Windows(1).Visible = False
Application.DisplayAlerts = False
.SaveAs Environ("TMP") & "\tmp.xlsx", FileFormat:=xlWorkbookDefault, ConflictResolution:=xlLocalSessionChanges
Application.DisplayAlerts = True
.Close (True)
End With

With CreateObject("Outlook.Application").CreateItem(0)
.To = "me@yahoo.com"
.Subject = "Worksheet: " & ActiveSheet.Name
.Body = ""
.Attachments.Add Environ("TMP") & "\tmp.xlsx"
.Display
'.send
End With
End Sub

[ihenry]

Hi Logit

Thank you so much, the code worked fine, the only thing now is how do I create a buttom that sits on the main page of the spreadsheet so that is can be run without opening up the VBAProject.

Once again thank you.

[Logit]

https://www.homeandlearn.org/add_a_button_to_a_spreadsheet.html

[ihenry]

Hi Logit

Thank you so much, the code worked fine, the only thing now is how do I create a buttom that sits on the main page of the spreadsheet so that is can be run without opening up the VBAProject.

Once again thank you.

[ihenry]

Hi Logit

Thats, me completed what I set out to do, thank you so much for your help with this one.

Everything is working perfectly.

Thank you

Best regards

[Logit]

Glad to assist.