Email Generation Using Macro - Body Issues

[1204Brown]

Trying to add a macro to generate an approval email with certain data from the spreadsheet within the body of the email.
I have the following in place currently to deploy the email:

Sub Sendemail()


Dim Email_Subject, Email_Send_To, _
Email_Cc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "New Account Approval"
Email_Send_To = "christina@TESTINGXYZ.com"
Email_Cc = "sales@TESTINGXYZ.com"
Email_Body = "The following New Account requires your approval:."
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

What do I need to add the following cell values into the body of the email, All Sheet 1?
B6
B4
B8
F14
E16 : F16
E17 : F17
A25 : B25
A26 : B26
A27 : B27

Is there something simple I can insert to make this work?

Thank you so much!
Christina

 

[Michael M]

Change the body to refer to your cells.

.Body = Email_Body & Range("B6").Value & " " & Range("B4").Value & " " & Range("B8").Value & _
" " & Range("F14").Value & " " & Range("E16:F16").Value & " " & Range("E17:F17").Value & _
" " & Range("A25:B25").Value & " " & Range("A26:B26").Value & " " & Range("A27:B27").Value

....but I'd suggest putting a formula in another cell and joining the text in that one cell and referring to it in the body

=B6&" " &B4&" "&B8&" "&F14&" "&E16&" "&F16&" "&E17&" "&F17&" "&A25&" "&B25&" "&A26&" "&B26&" "&A27&" "&B27

 

[Michael M]

Darn it....another typo

.Body = Email_Body & Range("B6").Value & " " & Range("B4").Value & " " & Range("B8").Value & _
" " & Range("F14").Value & " " & Range("E16") & " " & Range("F16").Value & " " & Range("E17").Value & " " & Range("F17").Value & _
" " & Range("A25").Value & " " & Range("B25").Value & " " & Range("A26").Value & " " & Range("B26").Value & " " & Range("A27").Value & " " & Range("B27").Value