在Excel中将单元格值添加到电子邮件的HTML正文中
我必须每天订购帐户报告，然后发送所有报告的电子邮件，但必须以某种方式进行格式化。 我终于做了一个Excelmacros命令的报告，但我试图让macros也发送电子邮件的报告。 这是我迄今为止。
Sub Email() Dim OutApp As Object Dim OutMail As Object Dim Email As String Dim ws As Worksheet Set ws = Worksheets("Data") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) K = 2 Do While ws.Cells(K, 1) <> "" ws.Cells(K, 5) = "ACCT:" & ws.Cells(K, 1).Value K = K + 1 Loop Email = "Hello, <br><br>" & _ "The following reports were ordered today: <br><br>" & _ "<br> ws.Cells(2, 5) & _ '"<br> ACCT:" & ws.cells(1, 2) & _ "<br><br> Thank you." & _ "<br><br><br> <i> Please note Call if you have any questions </i>" & _ With OutMail .to = "me@me.com" .CC = "" .BCC = "" .Subject = "Statements Ordered" .HTMLBody = Email .Send End With Set OutMail = Nothing Set OutApp = Nothing End Sub 我所做的是拿AC列在A列中的数字，然后将其与ACCT匹配：使单元格E：E900有ACCT：12345 ….但我不知道如何将该单元格添加到HTML正文。 在下面，我已经注意到了我尝试过的第二种方式，但也失败了，那就是尝试和ACCT：＆ws.Cells（1,2）相匹配。
所以问：有没有一种方法来在HTMLbody中使用If then语句，或者有一种方法可以在HTMLbody中添加单元格值？