为什么我无法打开嵌入式电子邮件附件

Question

当我显示带有附件的味精时，我可以单击它们并在Excel中打开

 Set objInsp = MailDoc.GetInspector
    Set objDoc = objInsp.WordEditor
    Set objSel = objDoc.Windows(1).Selection
     objSel.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", FileName _
    :=strPath & strFile _
    , LinkToFile:=False, _
    DisplayAsIcon:=True, _
    IconLabel:=strFile

但是当我将此消息发送给某人后，嵌入式电子邮件附件将不再打开，只能在单击时选择。

如何制作可打开的嵌入式电子邮件附件？