excel data to outlook

N

netvigator.com

Hi,
In my daily job, I need to flash some new data into my excel and use the
excel result to send out mails to report daily result. Is all numbers I need
to report in mails. Wonder if you can tell me if there is any tools to make
the data into text on my outllook.
I tried forming some string using:
="Today we booked "&Sheet1!A4&" MM vs."&Sheet1!A5&" MM expiry"

but when I copied this cells into my outlook, format is rare and pasted as
table / cells where I prefer to paste as text format ( which can be read by
boss with blackberry).

I asked around my colleagues but no one can help. Appreciate your sparking
idea on this subject.


rgd,
Nelson
 
R

Rusty

netvigator.com said:
Hi,
In my daily job, I need to flash some new data into my excel and use the
excel result to send out mails to report daily result. Is all numbers I
need to report in mails. Wonder if you can tell me if there is any tools
to make the data into text on my outllook.
I tried forming some string using:
="Today we booked "&Sheet1!A4&" MM vs."&Sheet1!A5&" MM expiry"

but when I copied this cells into my outlook, format is rare and pasted as
table / cells where I prefer to paste as text format ( which can be read
by boss with blackberry).

I asked around my colleagues but no one can help. Appreciate your sparking
idea on this subject.


rgd,
Nelson
Click to expand...

Hi Nelson,

Have you tried copying the worksheet and pasting into a New email in
Outlook. It worked for me.

Otherwise just attach the Excel worksheet, but that assumes everyone else
has Excel or it's viewer installed.

Cheers,
Rusty
 
R

Rusty

netvigator.com said:
Hi,
In my daily job, I need to flash some new data into my excel and use the
excel result to send out mails to report daily result. Is all numbers I
need to report in mails. Wonder if you can tell me if there is any tools
to make the data into text on my outllook.
I tried forming some string using:
="Today we booked "&Sheet1!A4&" MM vs."&Sheet1!A5&" MM expiry"

but when I copied this cells into my outlook, format is rare and pasted as
table / cells where I prefer to paste as text format ( which can be read
by boss with blackberry).

I asked around my colleagues but no one can help. Appreciate your sparking
idea on this subject.


rgd,
Nelson
Click to expand...
Hi Nelson,

Have you tried copying the worksheet and pasting into a New email in
Outlook. It worked for me.

Otherwise just attach the Excel worksheet, but that assumes everyone else
has Excel or its viewer installed.

Cheers,
Rusty
 
N

netvigator.com

Thanks Rusty
Copying the sheet and paste it into the new mail works, but in a table
format, where my boss can read only text.
I have to the typing everyday which I think I should have some way to
automate the process.


RGds,
Nelson
 
S

Stopher

netvigator.com said:
Thanks Rusty
Copying the sheet and paste it into the new mail works, but in a table
format, where my boss can read only text.
I have to the typing everyday which I think I should have some way to
automate the process.


RGds,
Nelson
Click to expand...

I assume the only thing that you are trying to send is the text
string:

="Today we booked "&Sheet1!A4&" MM vs."&Sheet1!A5&" MM expiry"

Populated with your results?

You could try

Sub SendBosses_Results()

Dim OutApp As Object
Dim OutMail As Object

Set OutMail = Application
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "[email addresses here]"
.CC = ""
.BCC = ""
.Subject = "[Subject here]
.Body ="Today we booked "&Sheet1!A4&" MM vs."&Sheet1!A5&"
MM expiry"
.Send
End With
End Sub

Or something similar.

Hope this helps and you know how to put a macro into your sheet.
 
S

Stopher

You could also try:

ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "[email address here]"
.Subject = "[Insert sbject here]"
.Message = "[Insert the text string here]"
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
 
Top