Save/ Send as webpage ?
 

I have the following code that sends an excel workbook to
a list of email folks in a column on a worksheet
named "Report" . It works perfectly. But now recipients
are complaining that the file is too big. Can the code
below be modified to send only sheet "Report" as web page
or some other method that reduces the file size ? The
current size is about 300kb

Thanks, Steve
------
Sub E_Mail()
ActiveWorkbook.Save
Sort
Filter_all
Macro1
'sends the activeworkbook to the e-mail address in a
range named "list" in Sheet 'a sheet named E-Mail
Dim MyArr As Variant
MyArr = Sheets("Report").Range("list")
'Will send with the subject send email.xls
'ActiveWorkbook.SendMail MyArr
ActiveWorkbook.SendMail Recipients:=MyArr, _
Subject:=ActiveWorkbook.Sheets(1).Range("A1") & " All
Short (" & ActiveWorkbook.Sheets(1).Range("C1") & ") and
Missort (" & ActiveWorkbook.Sheets(1).Range("c25") & ")
Report" & Format$(Date, " mm-dd-yyyy")
Quit
End Sub

Save/ Send as webpage ?
 

Hi Steve

http://www.rondebruin.nl/mail/folder1/mail2.htm
My Add-in have a option to send as a webpage (Outlook only)
http://www.rondebruin.nl/mail/add-in.htm

Also see if your usedrange on that sheet is not to big
http://www.contextures.com/xlfaqApp.html#Unused


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steve" wrote in message ...
I have the following code that sends an excel workbook to
a list of email folks in a column on a worksheet
named "Report" . It works perfectly. But now recipients
are complaining that the file is too big. Can the code
below be modified to send only sheet "Report" as web page
or some other method that reduces the file size ? The
current size is about 300kb

Thanks, Steve
------
Sub E_Mail()
ActiveWorkbook.Save
Sort
Filter_all
Macro1
'sends the activeworkbook to the e-mail address in a
range named "list" in Sheet 'a sheet named E-Mail
Dim MyArr As Variant
MyArr = Sheets("Report").Range("list")
'Will send with the subject send email.xls
'ActiveWorkbook.SendMail MyArr
ActiveWorkbook.SendMail Recipients:=MyArr, _
Subject:=ActiveWorkbook.Sheets(1).Range("A1") & " All
Short (" & ActiveWorkbook.Sheets(1).Range("C1") & ") and
Missort (" & ActiveWorkbook.Sheets(1).Range("c25") & ")
Report" & Format$(Date, " mm-dd-yyyy")
Quit
End Sub