With OutMail
.SentOnBehalfOfName = Range("F2")
.To = cell.Value 'Range("A2:A5").Value
.Subject = Range("B2").Value
.HTMLBody = "<table style='font-family: calibri; font-size: 14; color: rgb(32, 90, 160)'>" & _
"<tr><td><img src='http://www.portmone.com.ua/v2/kredobank/i/logo.gif'></td>" & _
"<td><img src='http://s7.hostingkartinok.com/uploads/images/2015/03/f7d69e22f111c246af8a2c035a813355.png' align='right'></td></tr>" & _
"<tr><td colspan='2'>Текст<p>" & _
"Очень много текста _________________________________________________________________________________</td></tr></table>"