关于邮件换行

我学习了如下老师的代码能够发送邮件，但现在遇到一个问题，我的邮件正文希望写两行话，但发出去变成一行了。比如：

我需要发送：

1.成绩优秀人员：张三、李四。

2.成绩较差：王二

但实际上却成为：

1.成绩优秀人员：张三、李四。2.成绩较差：王二

http://www.accessoft.com/article-show.asp?id=8414

'======================

'函数名称: SubMail()
'调用方法：SubMail StrMailAddress, StrSubject, StrBody

'说明：StrMailAddress: 邮箱地址 StrSubject:邮件标题 StrBody: 邮件内容
'======================

Public Function SubMail(strMailAddress As String, _
                        strSubject As String, _
                        strBody As String)
                       
    Dim outlook, mail As Object

      Set outlook = CreateObject("Outlook.Application")
      Set mail = outlook.CreateItem(olMailItem)
 
    With mail
            .To = strMailAddress
            .Subject = strSubject
            .HTMLBody = "
" & strBody

            .send
    End With

End Function