emailing cell range

[JZB]

hi guys

I have a cell range

[FONT='Arial','sans-serif']Set rng = ActiveSheet.Range(Cells(1, 1), Cells(13, 2)).Select[/FONT]
[FONT='Arial','sans-serif'][/FONT]
[FONT='Arial','sans-serif']I wish to email this to certain parties however i cannot get the data into an email [/FONT]
[FONT='Arial','sans-serif'][/FONT]
[FONT='Arial','sans-serif'][FONT='Arial','sans-serif']Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)[/FONT]

[FONT='Arial','sans-serif'] With OutMail
.To = "paul2.harvey@baml.com"
.CC = ""
.BCC = ""
[/FONT][FONT='Arial','sans-serif'][/FONT]
[FONT='Calibri','sans-serif']Mysubject = [/FONT][FONT='Arial','sans-serif']Sheets("Treasury Data").cell("E1")[/FONT][FONT='Calibri','sans-serif'][/FONT]
[FONT='Calibri','sans-serif'] [/FONT]
[FONT='Calibri','sans-serif'] [/FONT]
[FONT='Arial','sans-serif'].Subject = [/FONT][FONT='Arial','sans-serif']“” & mysubject & “”[/FONT][FONT='Arial','sans-serif']

.Display
End With
[/FONT]
[FONT='Arial','sans-serif']I know this is pretty crude. the subject code is not working and i cannot work out the code to get the contents (rng) into the mail. any ideas?[/FONT]
[FONT='Arial','sans-serif'][/FONT]
[FONT='Arial','sans-serif']your help is appreciated[/FONT]
[FONT='Arial','sans-serif'][/FONT]
[FONT='Arial','sans-serif']Thanks[/FONT]
[FONT='Arial','sans-serif'][/FONT]
[FONT='Arial','sans-serif']JZB


[/FONT][/FONT]

[lucas]

http://www.vbaexpress.com/forum/show...ail+body+range