Re: excel data to outlook


netvigator.com wrote:
Thanks Rusty
Copying the *** 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
"Rusty" <kenrussell@optus YOUR HAT home.com.au> ¼¶¼g©ó¶l¥ó·s»D:4531d123$0$17211$afc38c87@xxxxxxxxxxxxxxxxxxxxxxx

"netvigator.com" <nelsmok_notworking_desktop@xxxxxxxxxxx> wrote in message
news:4531b26c$1@xxxxxxxxxxxx
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

Hi Nelson,

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

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

Cheers,
Rusty


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 ***.

.