Emailing different sheets

[C Tate]

I have a workbook with lots of sheets. Each sheet belongs to a different
organisation and I have to email it to the relevant one.

What is the easiest way to separate out the individual sheets and send it to
to the company/companies in question?

 

[jeff]

Hi,

From Frank Kabel's earlier post, see

http://www.rondebruin.nl/sendmail.htm


jeff

 

[Ron de Bruin]

I add a mail template also last week to my site
http://www.rondebruin.nl/sendmail.htm#sheets

Any comments are welcome

 

[C Tate]

Wow. What an impressive tool ron has created! Is there any way to stop the
file being date stamped? Or at least change the formatting (i think it is
mentioned that the latter is possible). If so how?

 

[Ron de Bruin]

Hi C Tate

Glad you like it
I hope this weekend to add a Outlook and CDO version

You can change the format in the Sheet module
But If you remove it you must build a error check.
Because if the file name exist you have a problem

' The file will be saved with a Date/time stamp
' you can change the format if you like
strDate = Format(Now, "dd-mmm-yy h-mm-ss")


Or remove strDate from the save line

..SaveAs Trim(Me.Cells(XArr(Mail), "E").Value) _
& " " & strDate & ".xls"

 

[C Tate]

Many thanks for this information. One other question I wanted to ask is if
there is any way to include a message in the body of the email? Usually we
have to send a message along with an attachment even if it is only to say
'here is your spreadsheet'.

 

[Ron de Bruin]

Hi C Tate

I will add a template for Outlook and CDO this weekend/week.
In Outlook Express it is not possible to add text to the body and send a
attachment.

Check out my site this week

 

[Ron de Bruin]

Hi C Tate

If you use Outlook you can download a template now
with CC, BCC and body text.
http://www.rondebruin.nl/sendmail.htm#sheets

If you got problems or suggestions please let me know.