Страницы: 1
RSS
Текст письма в формате HTML(VBA)
 
Доброе время суток.
У меня есть макрос-рассылка писем, в котором текст письма вводится в виде ХТМЛ-текста. Мне нужно что б две картинки были над текстом, одна слева, вторая - справа. ХТМЛ код есть, и который норм работает в блокноте(отображает все как надо). Но когда тот же код(немного подготовлен под VBA) генерирует текст сообщения Аутлук, то картинки одна возле другой, а не по разные стороны.
Буду очень благодарен за помощь.
Вот кусок макроса:
Код
With OutMail
.SentOnBehalfOfName = Range("F2")
.To = cell.Value 
.Subject = Range("B2").Value

.HTMLBody = "<img src='http://www.portmone.com.ua/v2/kredobank/i/logo.gif' style='position: relative; top: 50px; float:left'>" & _
"<img src='http://s7.hostingkartinok.com/uploads/images/2015/03/f7d69e22f111c246af8a2c035a813355.png' style='position: relative; left:-50px; float:right'> " & _
"<div style='font-family: calibri; font-size: 14; color: #205aa0' >" & _
"Много текста________________________________________________________________________________________________________________________________________" & _
"</div>"
П.С, Извините за мой плохой русский.
 
Сам текст html корректный.
Ищите проблемы в самом  вставляемом тексте.
Возможно есть спецсимволы html,которые вызывают ошибки.
 
Ошибок нет, текст генерируеться, но не так как надо(Вторая картинка идет вслед за другой). Возможно в Аутлуке невозможно нормально позиционировать елементы.  
 
Попробуйте так
Код
 .HTMLBody = "<html><body>"  & _
"<table border='0'  width='100%'>" & _
"<tbody><tr>" & _
"<td width='50%'><img src='http://www.portmone.com.ua/v2/kredobank/i/logo.gif'"  & _
"style='position: relative; top: 50px; float:left'></td><td><img "  & _
"src='http://s7.hostingkartinok.com/uploads/images/2015/03/f7d69e22f111c246af8a2c035a813355.png'"  & _
"style='position: relative; left:-50px; float:right'></td>" & _
"</tr></tbody></table>"  & _
"<div style='font-family: calibri; font-size: 14; color: #205aa0"  & _
"width='100%'>"  & _
"много текста______________________________________________________________"  & _
"</div></body></html>"
Изменено: Doober - 25.03.2015 18:34:05
 
Я сделал так. Понял, что с помощью блоков ничего не добюсь.
Код
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: #205aa0'>" & _
"<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>"
Страницы: 1
Наверх