Send Bulk #email HTML from Excel

Sub Send_Email_with_Signature()

Dim Outlook_App As Object
Dim msg As Object
Dim sign As String
Dim i As Integer
Set Outlook_App = CreateObject("Outlook.Application")
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")

For i = 3 To sh.Range("B" & Application.Rows.Count).End(xlUp).Row

If sh.Range("A" & i).Value = "" Then ''Check Skip

Set msg = Outlook_App.CreateItem(0)

With msg
.display
End With

sign = msg.htmlbody

With msg
.To = sh.Range("C" & i).Value
.cc = sh.Range("D" & i).Value

msg.Subject = sh.Range("AF" & i).Value
.htmlbody = "Dear M/s/Ms/Mr. <b>" & sh.Range("B" & i).Value & "</b>,<br><br><p>Kindly to inform you that we have received a the invoice for the same.</p>"
.htmlbody = .htmlbody & "<table border='1'>" & _
"<thead>" & _
IIf(sh.Range("E" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("E2").Value & "</b></th>", "") & _
IIf(sh.Range("F" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("F2").Value & "</b></th>", "") & _
IIf(sh.Range("G" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("G2").Value & "</b></th>", "") & _
IIf(sh.Range("H" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("H2").Value & "</b></th>", "") & _
IIf(sh.Range("I" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("I2").Value & "</b></th>", "") & _
IIf(sh.Range("J" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("J2").Value & "</b></th>", "") & _
IIf(sh.Range("K" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("K2").Value & "</b></th>", "") & _
IIf(sh.Range("L" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("L2").Value & "</b></th>", "") & _
IIf(sh.Range("M" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("M2").Value & "</b></th>", "") & _
IIf(sh.Range("N" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("N2").Value & "</b></th>", "") & _
IIf(sh.Range("O" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("O2").Value & "</b></th>", "") & _
IIf(sh.Range("P" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("P2").Value & "</b></th>", "") & _
IIf(sh.Range("AB" & i).Value <> "", "<th style='color:#FFFFFF; font-size: 15px; background-color:#0000A5;'><b>" & sh.Range("AB2").Value & "</b></th>", "")
.htmlbody = .htmlbody & "</thead>" & _
"<tbody>" & _
"<tr>" & _
IIf(sh.Range("E" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("E" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("F" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("F" & i).Value, "") & ".00 " & "</b></td>", "") & _
IIf(sh.Range("G" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("G" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("H" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("H" & i).Value, "Short Date") & "</b></td>", "") & _
IIf(sh.Range("I" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("I" & i).Value, "Long Time") & "</b></td>", "") & _
IIf(sh.Range("J" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("J" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("K" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("K" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("L" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("L" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("M" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("M" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("N" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("N" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("O" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("O" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("P" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("P" & i).Value, "") & "</b></td>", "") & _
IIf(sh.Range("AB" & i).Value <> "", "<td style='color:#00000; font-size: 15px; background-color:#F5F5F5;'><b>" & Format(sh.Range("AB" & i).Value, "") & ".00 AED " & "</b></td>", "") & _
"</tr>" & _
"</tbody>" & _
"</table>" & _
sign

If sh.Range("H1").Value = 1 Then ''' check option button value
.send
Else
.display
End If
End With

Set msg = Nothing

End If

Next i

Set Outlook_App = Nothing

If sh.Range("H1").Value = 1 Then MsgBox "Done"

End Sub