VB只能发纯文本邮件问题求助

本人菜鸟一枚，今日下载来一个模块发送邮件，发现只能发送纯文本邮件
特征代码
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.126.com" 
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = g
.Item(NameSpace&"sendpassword") = n
.Update
end with
哪位大哥知道该咋改才能使它支持HTML发送，多谢了！ mail VB邮件群发 邮件

补充：VB ,  资源