2015-07-16 2 views
1

Я отправляю электронное письмо из Excel с помощью Outlook. Я отправляю сообщение как html-сообщение. Сообщение отправляется, но не в том формате, который я ожидаю. Заголовки в порядке, но ячейки ниже не выравниваются, как я ожидаю.left align содержимое ячейки в таблице html

Как получить ячейки под заголовком, которые будут выровнены влево? Я думал, используя атрибут align, это должно быть хорошо?

Мой код

Private Function CreateHTMLMsg() As String 

Dim msg As String 
Dim colourMkt As String 
Dim colourBid As String 
Dim colourAsk As String 
Dim i As Integer 

msg = "<table style='font-size: 12pt;'><tr></tr><tr><th align='left'>Fund</th><th>&nbsp;</th>" & _ 
    "<th align='left'>Mkt Spread</th><th>&nbsp;</th>" & _ 
    "<th align='left'>Bid Spread</th><th>&nbsp;</th>" & _ 
    "<th align='left'>Ask Spread</th><th>&nbsp;</th></tr>" 

For i = 1 To UBound(pBreaches) 
If pBreaches(i).SendEmail = True Then 

    If pBreaches(i).BreachedMkt = True Then 
     colourMkt = "yellow" 
    Else 
     colourMkt = "transparent" 
    End If 
    If pBreaches(i).BreachedBid = True Then 
     colourBid = "yellow" 
    Else 
     colourBid = "transparent" 
    End If 
    If pBreaches(i).BreachedAsk = True Then 
     colourAsk = "yellow" 
    Else 
     colourAsk = "transparent" 
    End If 

    msg = msg & "<tr style='font-size: 10pt;'><td>" & pBreaches(i).Fund & "</td><td>&nbsp;</td><td>" & _ 
       "<td align='left' style='background-color:" & colourMkt & "'>" & pBreaches(i).SpreadMkt & "</td><td>&nbsp;</td><td>" & _ 
       "<td align='left' style='background-color:" & colourBid & "'>" & pBreaches(i).SpreadBid & "</td><td>&nbsp;</td><td>" & _ 
       "<td align='left' style='background-color:" & colourAsk & "'>" & pBreaches(i).SpreadAsk & "</td><td>&nbsp;</td><td></tr>" 
End If 
Next i 

CreateHTMLMsg = msg & "</table>" 

End Function 

ответ

1

Попробуйте с:

style="float: left;" (HTML) 
float: left; (CSS) 

Вот более подробная информация о HTML и CSS таблицы о нем: Complete Guide to the Table element

+0

нет до сих пор, кажется, не делать ничего. был "<тд поплавка: слева; стиль = 'цвет фона:" & colourMkt & "'>" & pBreaches (я) .SpreadMkt & "  " – mHelpMe

+2

'поплавок: левый;' должны быть включены в стиле тег: "& pBreaches (i) .SpreadMkt &"   – mielk

+0

Странно. Посмотрите на приведенную выше ссылку. Я посмотрю позже, у меня также возникла проблема: p EDIT: Yeah Mielk! Я этого не заметил! – Hellcat8

Смежные вопросы