访问文本框值以显示邮件

Posted 2021-03-28

我在Access中有一个表单，其中包含文本框。我想将文本框值输入到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)没有用。我用它来留下一行，然后提供电子邮件签名。

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

答案

您应该使用："<br>"而不是Chr(13) & Chr(10)。

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