identify a range of data to send in an email

[tbrynard01]

This is the start of the code:
Sub Button1_Click()
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String


strSubject = "MHR Request"
strFrom = "tbrynard@harmonyfoundationinc.com"
strTo = "tbrynard@harmonyfoundationinc.com"
strCc = ""
strBcc = ""
strBody = ???

I'm stuck on how to display a range of data from the sheet in the body of the email??

Thanks

 

[Fire_Chief]

Here is my exact code:

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Enter the username and password of your email account below
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "testncaa@yahoo.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
'Edit the SMTP server below e.g. smtp.gmail.com or smtp.mail.yahoo.co.uk
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.co.uk"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' I also tried 25 and 587
.Update

Your code had
"smtp.mail.yahoo.com" OR "smtp.mail.yahoo.co.uk" I tried both and it didn't work.
I also tried "smtp.mail.yahoo.com.uk"
I REALLY hope you have another suggestion......
Thank you so much for trying

 

[Fire_Chief]

I have testing it so many times that my fingers hurt lol