excel data to outlook

[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

 

[Rusty]

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

 

[Rusty]

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

 

[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

 

[Stopher]

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

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.

 

[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