你设置一个备注列,将备注列的内容设置为:
<font class="Apple-style-span" size="3"><span class="Apple-style-span" style="line-height: normal; -webkit-border-horizontal-spacing: 1px; -webkit-border-vertical-spacing: 1px;"><table border="1" cellspacing="1px" style="border-color:#808080;border-style:outset;border-collapse:separate;width:80%;border-width:1px;border-spacing:1px;"><tbody><tr><td style="border-style:inset;border-color:#808080;padding:1px;border-width:1px">123</td><td style="border-style:inset;border-color:#808080;padding:1px;border-width:1px">45655</td></tr></tbody></table><br></span></font><div><b style="font-family: simsun; font-size: 24px; ">電話: 123366</b></div>
然后直接发送这个备注列的内容:
m.Content = Tables("某表").Current("备注")
看看对方收到的是不是有格式的,如果是有格式的,那么好办,以后都读取格式问题,替换其中的数据。