Создайте HTML-таблицу в почте Outlook с определенным цветом стиля и рамкой, используя VBA. ⇐ CSS

[Anonymous]

Я пытаюсь создать таблицу в .HTMLBody почты Outlook.
Таблица создается с правильными заголовками и строками данных, но не со стилем.
Мне нужно, чтобы каждая вторая строка была разного цвета.

Также необходимо изменить текст заголовка и цвет фона.
Dim EmailApp As Outlook.Application
Dim EmailItem As Outlook.MailItem
Set EmailApp = New Outlook.Application

For Each cCel In eSh.Range("A2:A" & eSh.Cells(eSh.Rows.Count, "A").End(xlUp).Row)

' Clearing values
cCel.Offset(0, 2) = ""

If IsEmpty(cCel.Offset(0, 1)) Then GoTo NX

mSend = False
EmailBody = ""

' Salutation
' this is the possible line to be changed in order to get the particular style ???
EmailBody = " th , td { border: 1px solid #e3e3e3; padding: 4px 8px; text-align: left; } tr:nth-child(odd) td { background-color: #e7edf0; }Ola, " & _
cCel & "

" & _
"Numero do ContratroContratanteSaldo de Contrato"

' Filter
DB.Range("1:1").AutoFilter Field:=gestI.Column, Criteria1:=cCel

If DB.Range("A" & DB.Rows.Count).End(xlUp).Row = 1 Then GoTo NX

For Each mCel In DB.Range("AG2", DB.Range("AG" & DB.Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

If mCel.Row = 1 Then GoTo NXX
If Not IsDate(mCel) Then GoTo NXX

'mCel.Select
exDate = DateSerial(Year(mCel) + 1, Month(mCel), Day(mCel))

If DateDiff("d", Date, exDate) < 0 Then
mSend = True

EmailBody = EmailBody & "" & _
"" & DB.Cells(mCel.Row, "C").Text & "" & _
"" & DB.Cells(mCel.Row, "I").Text & "" & _
"" & DB.Cells(mCel.Row, "X").Text & ""

End If

NXX: Next mCel

If mSend = False Then GoTo NX

Set EmailItem = EmailApp.CreateItem(olMailItem)

With EmailItem
.To = cCel.Offset(0, 1).Text 'Email address from DataBase
.Subject = "Información Sobre Contractos"
.HTMLBody = EmailBody & "

Atenciosamente"
.Display
.Send
cCel.Offset(0, 2).Value = "Sent" 'mark the mail
X = X + 1
End With

NX: Next cCel


Подробнее здесь: https://stackoverflow.com/questions/728 ... -using-vba