I want to email the contents of a worksheet as if it had been printed, rather
than as an .xls attachment. I don't see anything like this capability in Ron
de Bruin's sendmail tool. Is there some other tool available? The email
client is Outlook Express.

You can get a text v ersion of a range with this.

Dim datObj As DataObject

ActiveSheet.UsedRange.Copy

Set datObj = New DataObject
datObj.GetFromClipboard

If datObj.GetFormat(1) = True Then
MsgBox datObj.GetText(1)
End If

NickHK

"pwrichcreek" wrote in message
...
I want to email the contents of a worksheet as if it had been printed,
rather
than as an .xls attachment. I don't see anything like this capability in
Ron
de Bruin's sendmail tool. Is there some other tool available? The email
client is Outlook Express.

With Outlook Express you can only do this
http://www.rondebruin.nl/mail/oebody.htm

With Outlook you have more control

Or better use CDO
http://www.rondebruin.nl/cdo.htm





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"pwrichcreek" wrote in message ...
I want to email the contents of a worksheet as if it had been printed, rather
than as an .xls attachment. I don't see anything like this capability in Ron
de Bruin's sendmail tool. Is there some other tool available? The email
client is Outlook Express.