Hi Mike

Try this

http://www.rondebruin.nl/sendmail.htm#Outlook


--
Regards Ron de Bruin
http://www.rondebruin.nl


"mike0021 " wrote in message ...
Hi, I am having a problem with a script.

I am just trying to send a range of cells from my spreadsheet through
Outlook. The code works if I just send ONE cell, but if I send the
range it just returns "TRUE" in the body. Any idea what is up?

Sub Email()
Dim o
Dim m
Dim Msg As String
Dim emailAddress As String



Application.DisplayAlerts = False


Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)


emailAddress = Cells(24, 1)
m.To = emailAddress

m.Subject = " Partials Report "
Msg = Range("A1", "C5").Select


m.body = Msg

m.Send

End Sub



Thanks all,

Mike


---
Message posted from http://www.ExcelForum.com/