Я отправляю электронное письмо из 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> </th>" & _
"<th align='left'>Mkt Spread</th><th> </th>" & _
"<th align='left'>Bid Spread</th><th> </th>" & _
"<th align='left'>Ask Spread</th><th> </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> </td><td>" & _
"<td align='left' style='background-color:" & colourMkt & "'>" & pBreaches(i).SpreadMkt & "</td><td> </td><td>" & _
"<td align='left' style='background-color:" & colourBid & "'>" & pBreaches(i).SpreadBid & "</td><td> </td><td>" & _
"<td align='left' style='background-color:" & colourAsk & "'>" & pBreaches(i).SpreadAsk & "</td><td> </td><td></tr>"
End If
Next i
CreateHTMLMsg = msg & "</table>"
End Function
нет до сих пор, кажется, не делать ничего. был "<тд поплавка: слева; стиль = 'цвет фона:" & colourMkt & "'>" & pBreaches (я) .SpreadMkt & "
'поплавок: левый;' должны быть включены в стиле тег:
Странно. Посмотрите на приведенную выше ссылку. Я посмотрю позже, у меня также возникла проблема: p EDIT: Yeah Mielk! Я этого не заметил! – Hellcat8
Смежные вопросы