将 CurrentRegion 提取到电子邮件正文中

Question

CurrentRegion 已提取但未显示在电子邮件正文中

Sub Draft()

    Dim myDataRng As Range
    Set myDataRng = Range("c2:c2")

    Dim data As String
    data = Range("B11").CurrentRegion.Select

    For Each Cell In myDataRng
        If Cell.Value > 0 Then
            Dim objOutlook As Object
            Set objOutlook =     CreateObject("outlook.application")

            Dim objEmail As Object
            Set objEmail = objOutlook.CreateItem(olMailItem)

            Range("K2").Select

            With objEmail
                .SentOnBehalfOfName = "accounting@test.co.uk"
                .to = ActiveCell.Offset(0, 1).Value
                .Subject = ActiveCell.Offset(7, 0).Value
                .htmlbody = "Supplier Code " & " " & Cell.Offset(0, 0).Value & "<br>" & "Supplier Name: " & " " & Cell.Offset(1, 0).Value & "<br>" & "Currency " & " " & Cell.Offset(2, 0).Value & "<br>" & "<br>" & "Dear Supplier," & "<br>" & "<br>" & "A payment has been issued to you, as detailed below. " & "<br>" & data & "<br>" & "<br>" & "Kind Regards,<br>Johnny Grif <br>Accounts Assistant/Accounts Department" & "<br>" & "T:+44(0)1234 567 890" & "<br>" & "E:accounting@test.co.uk"
                .Save
            End With

            Set objOutlook = Nothing
        End If
    Next Cell

    Set myDataRng = Nothing
    Set objEmail = Nothing: Set objOutlook = Nothing
    MsgBox "Please check pyament advice in your draft folder!"

End Sub

最后的结果是这样的。

尊敬的供应商，

已向您支付了一笔款项，详情如下。
是的

亲切的问候，
Johnny Grif
会计助理/会计部门
电话：+44 (0)1234 567 890
E:accounting@test.co.uk

下面是输出：

Answer 1

以下代码是问题的原因：

.htmlbody = "Supplier Code " & " " & Cell.Offset(0, 0).Value & "<br>" & "Supplier Name: " & " " & Cell.Offset(1, 0).Value & "<br>" & "Currency " & " " & Cell.Offset(2, 0).Value & "<br>" & "<br>" & "Dear Supplier," & "<br>" & "<br>" & 
"A payment has been issued to you, as detailed below. " & "<br>" & data & "<br>" & "<br>" & "Kind Regards,<br>Johnny Grif <br>Accounts Assistant/Accounts Department" & "<br>" & "T:+44(0)1234 567 890" & "<br>" & "E:accounting@test.co.uk"

首先，消息正文标记应由格式良好的 HTML 文档/字符串表示。

其次，如果您需要在代码中换行，则需要在代码中使用下划线_ 字符才能正确组装行。

第三，我建议打破代码并尝试从多个部分组装最终，这样您就可以找出代码无法正常工作的原因。