VBA HTML Email Issue

[jamesmev]

I am using the below:
However, When executing the code the email is only outputting the final line.
I'm unsure why the rest of the code isn't taking.


Sub SendByOne()
Dim c As Range
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim i As Integer
On Error Resume Next


For Each c In Range("B2:B2" & Cells(Rows.Count, "B").End(xlUp).Row).Cells
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
.From = """biz name""<ccccustomerdevelopment@bizname.com>"
'.To = c.Offset(0, 4).Value
.To = "jevereth@coke-bsna.com"
.Subject = c.Offset(0, 1).Value

.htmlbody = ""
.htmlbody = "<b>" & "Bottler :" & " " & c.Offset(0, 1).Value & "</b>" & vbNewLine
.htmlbody = "Sales Office" & c.Offset(0, 17).Value & "</b>" & vbNewLine_
.htmlbody = "POM" & c.Offset(0, 3).Value & "</b>" & vbNewLine_
.htmlbody = "Notes" & c.Offset(0, 9).Value & "</b>" & vbNewLine_

.htmlbody = "Correction -- " & " Required Information" & "<\b>" & vbNewLine_
.htmlbody = "Customer Number -- " & c.Offset(0, 12).Value & "</b>" & vbNewLine_
.htmlbody = "Customer Name -- " & c.Offset(0, 11).Value & "</b>" & vbNewLine_
.htmlbody = "12 month Volume -- " & c.Offset(0, 18).Value & "</b>" & vbNewLine_
.htmlbody = "Sales Office -- " & c.Offset(0, 17).Value & " " & c.Offset(0, 15).Value & "</b>" & vbNewLine_
.htmlbody = "OWNER -- " & c.Offset(0, 1).Value & "</b>" & vbNewLine_
.htmlbody = "New Call Frequency -- " & c.Offset(0, 5).Value & "</b>" & vbNewLine_
.htmlbody = "Delivery Day Decrease -- " & c.Offset(0, 4).Value & "</b>" & vbNewLine_
.htmlbody = "Delivery Day Increase -- " & c.Offset(0, 8).Value & "</b>" & vbNewLine_
.htmlbody = "New/Add/ Change Delivery Day -- " & c.Offset(0, 6).Value & "</b>" & vbNewLine_
.htmlbody = "New/Add/Change Call Day -- " & c.Offset(0, 7).Value & "</b>" & vbNewLine_
.htmlbody = "Delivery Window Update -- " & c.Offset(0, 10).Value & "</b>" & vbNewLine_


.htmlbody = "<br> <br> Thank you in advance for your assistance and prompt attention to this request."


' .HTmlbody = .HTmlbody & "<br>If you would like to embed my latest video you can find it here"
' .HTmlbody = .HTmlbody & "<br> Check it out <a href = ""URL HERE""> HERE </a>"
.display 'to display first
'.Send 'to send it in background
End With
Next c

End Sub

 

[GWteB]

Amend your code like this ...

.htmlbody = .htmlbody & "<b>" & "Bottler :" & " " & c.Offset(0, 1).Value & "</b>" & vbNewLine
.htmlbody = .htmlbody & "Sales Office" & c.Offset(0, 17).Value & "</b>" & vbNewLine
'
'

 

[jamesmev]

i can't believe i missed that.. Thank you.
Next issue - is that it keeps sending even if nothing is in "B". Why is that?

 

[GWteB]

... if nothing is in "B".

What do you mean with that?

 

[jamesmev]

Resolved

 

[GWteB]

Let me guess, you removed the 2

For Each c In Range("B2:B2" & Cells(Rows.Count, "B").End(xlUp).Row).Cells

 

[jamesmev]

sure did Thank you Again!