VBA 在邮件正文中插入带格式表格

Rem 正文标题部分 StrBT = table border= '1' style= 'border-right: black thin solid; StrBT = StrBT border-top: black thin solid; border-left: black thin solid; StrBT = StrBT border-bottom: black thin solid' StrBT = StrBT tr For ICOL = 1 To UBound(DRX， 2) StrBT = StrBT td align= 'left' style= 'width: 239px; StrBT = StrBT background-color: lightskyblue; font-size: 9pt; font-family: 宋体; StrBT = StrBT border-right: windowtext 0.5pt solid; border-top: windowtext 0.5pt solid; StrBT = StrBT border-left: windowtext 0.5pt solid;border-bottom: windowtext 0.5pt solid; StrBT = StrBT ' valign= 'top' StrBT = StrBT DRX(I， ICOL) /td Next Rem 正文内容 For I = 2 To UBound(DRX， 1) StrBT = StrBT /tr '//换行 For ICOL = 1 To UBound(DRX， ICOL) /td Next Next StrBT = StrBT /table ， 2) StrBT = StrBT td align= 'left' height= '57' style= 'width: 250px; StrBT = StrBT background-color: lightskyblue; font-size: 9pt; font-family: 宋体;border-right: windowtext 0.5pt solid; StrBT = StrBT border-top: windowtext 0.5pt solid;border-left: windowtext 0.5pt solid; StrBT = StrBT border-bottom: windowtext 0.5pt solid; StrBT = StrBT ' valign= 'top' StrBT = StrBT DRX(1，。