您好，谢谢您看到我的帖子。我从名为 Unspan 的网站收到一条奇怪的错误消息，指出我的测试电子邮件中的 HTML 标签未正确关闭和嵌套。
我正在寻找第二双眼睛来审查下面编写的代码，因为我无法直观地看到我的错误所在（如果有的话）...
附件是错误消息的屏幕截图以及本身编写的代码。如果有人可以审查我的工作并指出我做错了什么以及需要更改什么，我将不胜感激，谢谢。
Dim OutApp As Object
Dim OutMail As Object
Dim Ws As Worksheet
Dim strbody As String
Dim row_count As Integer
Greeting = Ws.Range("I24")
EMD = Ws.Range("B7")
DPeriod = Ws.Range("B8")
CashEscrow = Ws.Range("A9")
CashDays = Ws.Range("B9")
CreativeEscrow = Ws.Range("A10")
CreativeDays = Ws.Range("B10")
Body = Ws.Range("B19")
CC = Ws.Range("F2")
BCC = Ws.Range("H2")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<BODY style = font-size:14pt;font-family:Tahoma>" & _
Greeting & " " & Ws.Cells(i, 1).Text & "," & "<br>" & Body & " " & Ws.Cells(i, 4).Text & "." & _
"<br>" & "<br>" & "Non-Refundable EMD" & " " & "$" & EMD & "<br>" & "DD Period" & " " & DPeriod & "<br>" & CashEscrow & " " & _
CashDays & "<br>" & CreativeEscrow & " " & CreativeDays & "<br>" & "<br>" & "Thank You" & "<br>" & "Regards," & "<br>" & Ws.Range("K2") & "<br>" & Ws.Range("L2") & "<br>" & Ws.Range("K3") & "<br>" & Ws.Range("L3") & "<br>"
FileName = Ws.Cells(i, 6).Text
On Error Resume Next
With OutMail
.To = Ws.Cells(i, 2).Text
.CC = CC
.BCC = BCC
.Subject = "Interested In Purchasing" & " " & Ws.Cells(i, 4).Text & ":" & " " & "Please Review"
.HTMLBody = strbody & _
"<img src='C:\Users\david\OneDrive\Desktop\Real Estate\Whoop&Discord\Credibility Evergreen Servicing\WhyRealtorsshouldUseCreativeFinance.jpg' width='90%' height='90%'>" & _
.HTMLBody
检查了其他论坛、Youtube 和谷歌。尝试手动查找我的代码中的错误
虽然你声明了 WS 但你从未初始化它，你必须这样做
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
你必须给 i 初始值，比如 1
Dim i As Long: i = 1
在 strbody 的末尾，您必须添加两个标签来关闭标签，例如
strbody = <BODY style = font-size:14pt;font-family......
strbody = strbody＆“”
希望这能起到作用