功能:client端抓取文件中之附加檔
介面:UI Doc
抓取不到可以假儲存一次
saveoptions=0
介面:UI Doc
Set uidoc=ws.CurrentDocument
Set doc =uidoc.Document
Set item =doc.GetFirstItem("Attach") // 附件RTF欄位
If ( item.Type = RICHTEXT ) Then
Forall o In item.EmbeddedObjects
Msgbox o.name
End Forall
End if
抓取不到可以假儲存一次
saveoptions=0
留言