VB邮件发送遇到的问题

VB邮件发送遇到的问题
jmail.FromName = Text4.Text '发信人姓名
jmail.From = Text1.Text '发邮件地址地址
jmail.Subject = Text5.Text '主题
jmail.AddRecipient Text3.Text '收信人地址
jmail.Body = DHTMLEdit1.DocumentHTMLQQ邮箱为何接到的是HTML代码！请问高手我哪里弄错了如何写一个可以带有可以图片和链接功能的邮件发送程序呢！请有源码的高手留一下！尽量多写注释！我还是个新手不太懂！！