使用来自Excel表格的VBA发送电子邮件，并带有多个收件人 - 拉日期和附件

Question

我正在使用VBA代码从Excel表发送电子邮件：

我使用代码为C列中的每个电子邮件地址生成单独的电子邮件，并带有附加的文件。

我希望将代码添加到：

1. 将日期从D列D到电子邮件正文。
   我已经为电子邮件的正文提供了我希望日期的代码。
   我如何按行获得每个电子邮件的日期。
2. 如果列E中有链接，请将附加文件附加到电子邮件中。
   这将是代码中已经在代码中的一个。

Excel表中的每一行应使用C列中的电子邮件地址，D列中的日期和附件。

Answer 1

假设其余代码有效，只需将块更新为：

With MItem
    .To = sourceWorksheet.Cells(RowIndex, 3).Value
    .Subject = "Subject Here"
    If Cells(RowIndex, 5) <> "" Then .Attachments.Add Cells(RowIndex, 5).Value
    If Cells(RowIndex, 6) <> "" Then .Attachments.Add Cells(RowIndex, 6).Value
    .HTMLBody = "<font face = ""Calibri(Body)"" font size=""3"" color=""black""><p>Good afternoon, </p>" & _
    "<p><strong>Please review the attached and return by " & Cells(RowIndex, 4) & ". </strong>  </p></font>" & .HTMLBody
     .Display
End With