Question

我必须每天订购帐户报告，然后发送包含所有报告的电子邮件，但必须以某种方式格式化。我终于制作了一个Excel宏来订购报告，但我试图让宏也通过电子邮件发送报告。这是我到目前为止所拥有的。

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

我所做的就是拿A列书中的AC编号，然后将它与ACCT匹配：这样E = E900的单元格有ACCT：12345 ....但我不知道如何添加单元格进入HTML正文。在它下面我已经评论了我试过的第二种方法，但也失败了，那就是尝试和ACCT相匹配：＆amp; ws.Cells（1,2）。

所以问题：有没有办法在HTML体内部使用If then语句，或者有没有办法在HTML体内添加单元格值？

将Cell值添加到Excel中的电子邮件的HTML正文中

0 个答案: