Emailing different sheets

C

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?
 
C

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?
 
R

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

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'.
 
R

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
 
Top