我正在使用VBA代码从Excel工作表发送电子邮件：我使用代码为C列中的每个电子邮件地址生成一封单独的电子邮件，并附上一个文件。我希望添加代码到：1.将D列中的日期添加到电子邮件正文中。我已经在电子邮件正文中输入了我希望日期到达的位置的代码。如何逐行获取每封电子邮件的日期。1.如果E列中有链接，请在电子邮件中附加一个文件。这将是对代码中已有的一个的补充。Excel表格中的每一行应使用C列中的电子邮件地址、D列中的日期和E列中的附件生成单独的电子邮件。
j13ufse21#
假设剩下的代码可以工作，只需将with块更新为：
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
1条答案
按热度按时间j13ufse21#
假设剩下的代码可以工作，只需将with块更新为：