Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SAVE AS: Webpage | Excel Discussion (Misc queries) | |||
To Hyperlink or save as Webpage? | New Users to Excel | |||
Issues with 'Save as a webpage' | Excel Discussion (Misc queries) | |||
save as webpage? | Excel Worksheet Functions | |||
Trouble with Save as Webpage | Excel Discussion (Misc queries) |