|
...... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Set object = rtitem.GetEmbeddedObject( "Word Document" ) className = object.Class btname = "c:\111"+".doc" |
|
|
附件不能用RTFItem直接访问,可以用doc.embeded还是item.embeded得到所有附件,再拆离.
|
|
|
可能是EbbededObject属性,好久不用了.
|
|
|