Question

我发送链接到Excel数据的邮件。我需要大胆和红色只有几个字，我正在尝试，我无法做到这一点。希望这里有人可以帮助我。 在我发送时，细胞（i，13）必须变为粗体和红色。

toList = Cells（i，4）'从col D

获得收件人

    eSubject = "Request for KBR transport to " & Cells(i, 2) & " on " & Format(Cells(i, 3), "dd-mmm-yy")
    eBody = "Dear " & Cells(i, 1) & vbCrLf & vbCrLf & "Can you please arrange KBR Transport for below PASSENGERS." & vbNewLine & vbNewLine & _
    " " & Cells(i, 13) & vbNewLine & vbNewLine & _
    " " & vbNewLine & vbNewLine & _
        "Full Name      :  " & Cells(i, 6) & vbNewLine & vbNewLine & _
        "Nationality    : " & Cells(i, 7) & vbNewLine & vbNewLine & _
        "Departure/Arrival  Date : " & "" & Format(Cells(i, 8), "dd-mmm-yy") & vbNewLine & vbNewLine & _
        "Airline        : " & Cells(i, 9) & vbNewLine & vbNewLine & _
        "Flight Number  : " & Cells(i, 10) & vbNewLine & vbNewLine & _
        "Departure/Arrival Time : " & Cells(i, 11) & vbNewLine & vbNewLine & _
        "Escort required: " & Cells(i, 14) & vbNewLine & vbNewLine & _
        " " & vbNewLine & vbNewLine & _
        "                   Contact Number: " & Cells(i, 12) & vbNewLine & vbNewLine & _
        " " & vbNewLine & vbNewLine & _
        "Please confirm pick up time and availability." & vbNewLine & vbNewLine ##

Answer 1

使用HTML正文，然后您可以使用HTML <b>和<font>标记。它可能更适合，因为您也可以使用HTML <table>来显示数据。

如何在Excel VBA中对自动电子邮件正文中的文本进行粗体或彩色处理

toList = Cells（i，4）'从col D

1 个答案: