vba 邮件body html,求助VBA发送邮件宏中的Emailbody

我要用VBA通过outlook自动发送邮件，之前发的都没有问题，这次修改了Emailbody, 然后就总提示语法错误，又说缺少结束语语句，求高手帮忙

发送的文本格式是这样的，<>代表是获取表中的活动单元格

<>您好：

您的手机号为:<>，

您手机话费报销标准为:<>，

本月产生费用为:<>，

您*月手机话费超过标准，超额:<>，

如超出费用是由于工作原因产生，请于<>前提交超费申请到集团行政管理部总务处<>(收)。如不及时提交超出费用将在您<>发放的工资中扣除。

查询话费使用情况，请拨打10086

如需查询明细，可登陆天津移动网上营业厅查询，网址 ： http://www.tj.10086.cn/

如需帮助请拨打分机：3123。

感谢您对我工作的支持！

<>

我的Emailbody如下

EmailBody = "

Dear  " & Range("F" & i) & ":  

您好！您的手机号为：  " & Range("H" & i) < p > " & _

"您手机话费报销标准为：  " & Range("J" & i) & "

. " & _

"本月产生费用为：  " & Range("I" & i) & "

. " & _

"您" & Range("I" & 3) & "月手机话费超过标准，超额：  " & Range("K" & i)   

" & _

"如超出费用是由于工作原因产生，请于    " & Range("M" & i) & "

前提交超费申请到集团行政管理部总务处**(收)。如不及时提交超出费用将在您    " & Range("N" & i) & " 发放的工资中扣除。" & _

"
查询话费使用情况，请拨打10086 " & _

"

如需查询明细，可登陆天津移动网上营业厅查询，网址 ：http://www.tj.10086.cn/

" & _

"

如需帮助请拨打分机：3123

" & vbCrLf & _

"感谢您对我工作的支持！

"

总在第二行那报 错误：缺少语句结束

求高手帮看看