Emailing an Excel Worksheet
I am using this macro. Sub Hill() Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub I would like the macro to send the sheet in the body of the email as plain text. Is this possible ? Thank you in advance. |
Emailing an Excel Worksheet
hi
see this site http://www.rondebruin.nl/sendmail.htm also see this code. sheets("sheet1").activate Range("A1").Select Range("A1", Range("A1").End(xlToRight).End(xlDown)).Copy Sheets("sheet2").Activate Range("A1").PasteSpecial xlPasteValues does the same as yours. a bit cleaner. Regards FSt1 "carl" wrote: I am using this macro. Sub Hill() Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub I would like the macro to send the sheet in the body of the email as plain text. Is this possible ? Thank you in advance. |
All times are GMT +1. The time now is 07:12 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com