访问文本框值以显示邮件

Question

我在Access中有一个Form，其中包含文本框。我想将文本框值输入到Outlook邮件正文。我的代码如下。

With OutMail
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = "Test"
    .HTMLBody = RangetoHTML(objExcel, rng) & Chr(13) & Chr(10) & Form_FactorCoupon.Text25
    .Save
    .Close olPromtForSave
End With

RangetoHTML(objExcel, rng) - 此函数复制excel范围并将其粘贴到邮件正文中。

Form_FactorCoupon.Text25 - 这是包含电子邮件签名的表单中的文本框。

我的问题是Chr(13) & Chr(10)无效。我用它来留下一行，然后提供电子邮件签名。

如何留空行并提供文本框值？

Answer 1

您应该使用："<br>"代替Chr(13) & Chr(10)。

<br>是新行（折线）的HTML标记，而Chr(10)（换行符）和Chr(13)（carriege return）是用于获取新行的字符文本文件（不是HTML）。