Ok - here we go:

I've got my formatted numbers in Sheets(1).Range("A118").
If I run the following:

Sheets(1).Range("A118").CopyPicture xlScreen, xlBitmap

and then:
>activate an empty Outlook MailItem.
>do control & v, the data appears in the email in Bitmap format in the body of the mail, which is what I want.

An alternative manual way of doing the above is to simply copy the
range then open the MailItem and do Edit>PasteSpecial>Bitmap and the
formatted range appears as a bitmap in the body of the mail.


How do I automate all of the above - preferably without using the
SendKey method?
I need it in a Bitmap format because my clients are using
BlackBerries.
I've looked through Ron's website but can't get a definite answer from
that resource.

Any help greatly appreciated
Jason.

You've already got the Excel half of the equation done. You'll most likely
get a better/more prompt reply if you post in an Outlook group.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"WhytheQ" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Ok - here we go:
>
> I've got my formatted numbers in Sheets(1).Range("A118").
> If I run the following:
>
> Sheets(1).Range("A118").CopyPicture xlScreen, xlBitmap
>
> and then:
>>activate an empty Outlook MailItem.
>>do control & v, the data appears in the email in Bitmap format in the body
>>of the mail, which is what I want.
>
> An alternative manual way of doing the above is to simply copy the
> range then open the MailItem and do Edit>PasteSpecial>Bitmap and the
> formatted range appears as a bitmap in the body of the mail.
>
>
> How do I automate all of the above - preferably without using the
> SendKey method?
> I need it in a Bitmap format because my clients are using
> BlackBerries.
> I've looked through Ron's website but can't get a definite answer from
> that resource.
>
> Any help greatly appreciated
> Jason.
>