Unable to return the range but only the word "true"

[vbalearner721]

Here below is the code to create a draft email from excel, the current region is correctly selected but it doesn't show in email body correctly, it only shows a word "True", please see attached 2 pics.

Please help as I have googled for days and cannot sort out the problem, thank you so much.


Dim myDataRng As Range
Set myDataRng = Range("c2:c2")

Dim hk As String
hk = Range("B11").CurrentRegion.Select

For Each Cell In myDataRng

If Cell.Value > 0 Then

Dim objOutlook As Object
Set objOutlook = CreateObject("outlook.application")

Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)

Range("K2").Select

With objEmail
.SentOnBehalfOfName = "shipping@therange.co.uk"
.to = ActiveCell.Offset(0, 1).Value
.Subject = ActiveCell.Offset(7, 0).Value
.htmlbody = "Supplier Code " & " " & Cell.Offset(0, 0).Value & "<br>" & _
"Supplier Name: " & " " & Cell.Offset(1, 0).Value & "<br>" & _
"Currency " & " " & Cell.Offset(2, 0).Value & "<br>" & "<br>" & "Dear Supplier," & "<br>" & "<br>" & _
"A payment has been issued to you, as detailed below. " & "<br>" & _
hk & "<br>" & "<br>"
.Save
End With

 

[Alex Blakenburg]

I am afraid there is a bit more to it than that.
1) You will need to

Dim hk as range
Set hk = Range("B11").CurrentRegion

2) Copy Ron De Bruin's "Function RangetoHTML" into a your VBA Module from here:
Mail Range/Selection in the body of the mail
3) then concatenate the string including table by following the instructions in this video.
What you need starts at around the 7:30 min mark.