Adding to body in email

Hello, I need to add "Here are the numbers" to the top of the body in the VBA below. Thanks for help

Sub CreateMail()

Dim rngSubject As Range
Dim rngTo As Range
Dim rngBody As Range
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With ActiveSheet
Set rngTo = .Range("O16")
Set rngSubject = .Range("O17")
Set rngBody = .Range(.Range("D15"), .Range("D25").End(xlDown))
End With
rngBody.Copy

With objMail
.To = rngTo
.Subject = rngSubject
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
End With
SendKeys "^({v})", True

Set objOutlook = Nothing
Set objMail = Nothing

Please use code tags when posting. See Forum Rule No. 3.

Maybe:

Sub CreateMail()

Dim rngSubject As Range
Dim rngTo As Range
Dim rngBody As Range
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With ActiveSheet
Set rngTo = .Range("O16")
Set rngSubject = .Range("O17")
Set rngBody = "Here are the numbers " & .Range(.Range("D15"), .Range("D25").End(xlDown))
End With
rngBody.Copy

With objMail
.To = rngTo
.Subject = rngSubject
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
End With
SendKeys "^({v})", True

Set objOutlook = Nothing
Set objMail = Nothing

Thanks for the help, Im getting an error saying:

Run-time error '13':
Type mismatch

and this is the line highlighted

Set rngBody = "Here are the numbers " & .Range(.Range("D15"), .Range("D25").End(xlDown))

Outlook is not really an application I work with often. My client is Lotus Notes. But maybe try changing that line.

Set rngBody = "Here are the numbers " & .Range(.Range("D15"), .Range("D25").End(xlDown)) .Text

If that doesn't work, then maybe someone else can provide assistance.

Thanks, I tried both and still has an issue. VBA FTW the error is coming back with:

Run-time error '13':
Type mismatch

and this is the line highlighted

.Body = "Here are the numbers " & rngBody

Can you post the code you are using?

Here is my code. This works to get the part I want selected into the body of my email. What I want to do, which I have been tying to get work for a week, is add "here is this weeks numbers" to the body of the email. If I could do that that would work. What would be ideal if I could, instead of a set text like "here is this weeks numbers", and the contents of my text box to the email and then the " Set rngBody = .Range(.Range("D15"), .Range("K25").End(xlDown)) " after. Attached is the examples of what I am tring to do.



Sub CreateMail()

Dim rngSubject As Range
Dim rngTo As Range
Dim rngBody As Range
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With ActiveSheet
Set rngTo = .Range("O16")
Set rngSubject = .Range("O17")
Set rngBody = .Range(.Range("D15"), .Range("K24").End(xlDown))
End With
rngBody.Copy

With objMail
.to = rngTo
.Subject = rngSubject
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
End With
SendKeys "^({v})", True

Set objOutlook = Nothing
Set objMail = Nothing

End Sub

Post #2 - Please use code tags when posting.

Post #5 - by VBA FTW - rngBody is declared as a Range, try declaring it as a String instead using John's code.

Post #8 - I don't see any .Body in your current code?

Sub CreateMail()



Dim rngSubject As Range
Dim rngTo As Range
Dim rngBody As Range

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With ActiveSheet
Set rngTo = .Range("O16")
Set rngSubject = .Range("O17")
Set rngBody = .Range(.Range("D15"), .Range("K25").End(xlDown))
End With
rngBody.CopyPicture xlScreen, xlBitmap

With objMail
.to = rngTo
.Subject = rngSubject
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
.Body = "TextBox3.Text"




End With
SendKeys "({END})"
SendKeys "({ENTER})"
SendKeys "({ENTER})"
SendKeys "^({v})", True

Set objOutlook = Nothing
Set objMail = Nothing

End Sub