JZB
04-20-2010, 07:17 AM
hi guys
I have a cell range
Set rng = ActiveSheet.Range(Cells(1, 1), Cells(13, 2)).Select
I wish to email this to certain parties however i cannot get the data into an email :help
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "paul2.harvey@baml.com (paul2.harvey@baml.com)"
.CC = ""
.BCC = ""
Mysubject = Sheets("Treasury Data").cell("E1")
.Subject = “” & mysubject & “”
.Display
End With
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?
your help is appreciated
Thanks
JZB
I have a cell range
Set rng = ActiveSheet.Range(Cells(1, 1), Cells(13, 2)).Select
I wish to email this to certain parties however i cannot get the data into an email :help
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "paul2.harvey@baml.com (paul2.harvey@baml.com)"
.CC = ""
.BCC = ""
Mysubject = Sheets("Treasury Data").cell("E1")
.Subject = “” & mysubject & “”
.Display
End With
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?
your help is appreciated
Thanks
JZB