在电子邮件正文中包含单元格值-代码修复

Question

我的代码正在通过Outlook发送电子邮件。我希望电子邮件正文中包含两个单元格的值。电子邮件的格式工作正常，并且可以正确显示文本。此外，在两种情况之一中，单元格值正确显示。对于代码的一部分，它将在单元格值之前添加ACCT:ACCT:ACCT:。任何有关如何解决此问题的帮助？

[cell（6,3）的像元值= Zeer Dringend单元格（22,3）的单元格值= 2019-0004

这是由代码生成的电子邮件正文

Beste Collega，

[en nieuwe retour zending registratie werd aangemaakt遇到紧急情况：ACCT：ACCT：ACCT：Zeer Dringend。

Het pakket nummer是2019-0004。

在geval van vragen gelieve接触优化中。

Met vriendelijke groeten，

因此显示ACCT：ACCT：ACCT：Zerer Dringend，它应该说Zeer Dringend] >>

这是完整代码

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim WS As Worksheet

If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set WS = Sheets("Ingave")

strbody = "<font size=""3"" face=""Calibri"">" & _
"Beste Collega,<br><br>" & _
"Een nieuwe retour zending registratie werd aangemaakt met urgentie: <B>" & WS.Cells(6, 3).Value & "</B>.<br>" & _
"Het pakket nummer is <B>" & WS.Cells(22, 3).Value & "</B>.<br><B> " & _
"</B><br><br>In geval van vragen gelieve contact op te nemen." & _
"<br><br> Met vriendelijke groeten, </font>"
On Error Resume Next

With OutMail
.to = "xxx@yyy"
.CC = ""
.BCC = ""
.Subject = "Nieuwe registratie retour pakket "
.HTMLBody = strbody
.Display   'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "U moet de file eerst opslaan voor u verder kan gaan."
End If

我的代码正在通过Outlook发送电子邮件。我希望电子邮件正文中包含两个单元格的值。电子邮件的格式工作正常，并且可以正确显示文本。也是单元格值...

Answer 1

您提供的代码似乎按预期方式工作，您应该尝试调查ACCT:ACCT:ACCT:字符串的实际来源，也许有以下帮助，在我将ActiveWorkbook更改为ThisWorkbook的地方，以消除选择代码的可能性从可能是活动的工作簿中收集数据，但不一定是预期的：